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

Опис документу:
Практична робота "Елементи керування" для створення програми у середовищі об'єктно-орієнтованого програмування Делфі. Представлений зразок розташування компонентів, що використовуються, та опису необхідних процедур і функцій.

Відображення документу є орієнтовним і призначене для ознайомлення із змістом, та може відрізнятися від вигляду завантаженого документу. Щоб завантажити документ, прогорніть сторінку до кінця

Перегляд
матеріалу
Отримати код Поділитися

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

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;

Зверніть увагу, свідоцтва знаходяться в Вашому особистому кабінеті в розділі «Досягнення»

Всеосвіта є суб’єктом підвищення кваліфікації.

Всі сертифікати за наші курси та вебінари можуть бути зараховані у підвищення кваліфікації.

Співпраця із закладами освіти.

Дізнатись більше про сертифікати.

Приклад завдання з олімпіади Українська мова. Спробуйте!
До ЗНО з ФРАНЦУЗЬКОЇ МОВИ залишилося:
0
1
міс.
3
0
дн.
1
9
год.
Готуйся до ЗНО разом із «Всеосвітою»!