19 липня о 18:00Вебінар: Реалізація національно-патріотичного проекту в закладах дошкільної та середньої освіти

Практична робота в Delphi "Елементи керування"

Про матеріал

Роздатковий матеріал з об'єктно-зорієнтованого програмування для практичної роботи "Елементи керування". Практична робота містить опис необхідних компонентів і процедур

Перегляд файлу

Элементы управления

       

 

RadioGroup1

 

 

 

RadioGroup2

 

 

 

SpinEdit1

 

GroupBox1

 

 

 

 

Shape1                   Button1                              CheckBox1

 

Добавить на форму компонент ColorDialog

 

Дописать процедуры:


procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

  case RadioGroup1.ItemIndex of

    0: Shape1.Shape:=stCircle;

    1: Shape1.Shape:=stEllipse;

    2: Shape1.Shape:=stSquare;

    3: Shape1.Shape:=stRectangle;

    4: Shape1.Shape:=stRoundRect;

  end;

end;

 

 

 

procedure TForm1.RadioGroup2Click(Sender: TObject);

begin

  case RadioGroup2.ItemIndex of

    0: Shape1.Brush.Style:=bsSolid;

    1: Shape1.Brush.Style:=bsCross;

    2: Shape1.Brush.Style:=bsDiagCross;

  end;

end;

 

 

 

 

 

procedure TForm1.SpinEdit1Change(Sender: TObject);

begin

  Shape1.Pen.Width:=SpinEdit1.Value;

end;

 

 

procedure TForm1.Button1Click(Sender: TObject);

begin

if ColorDialog1.Execute then

   Shape1.Brush.Color:= ColorDialog1.Color;

end;

 

 

 

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

  Button1.Enabled:=CheckBox1.Checked;

end;

doc
Додано
14 листопада 2018
Переглядів
114
Оцінка розробки
Відгуки відсутні
Безкоштовний сертифікат
про публікацію авторської розробки
Щоб отримати, додайте розробку

Додати розробку