8 клас. Вивчаємо Лазарус. Д/З на 16.12

Проект «Властивості форми»

В цьому проекті ми розглянемо властивості форми. Для цього на форму встановимо кнопки (компонент Button) і дамо їм назви: зменшити форму, розтягнути форму, заховати кнопки, показати кнопки, а також створимо дві кнопки для задання кольору форми та форма на цілий екран, згорнути вікно, закрити вікно.

1. Створення форми та розміщення компонентів на форм

2. Задання властивостей компонентів.

Формі дамо назву робота з формою – властивість Caption. 

Через властивість Caption надаємо назви кнопкам Button через властивість Caption згідно зразка. Розташуйте кнопки на формі якнайкраще та задайте їм потрібні властивості.

3. Написання процедур обробки подій

Для того, щоб задати для кожної з кнопок потрібні події можна двічі клацнути на кнопку і написати код процедури обробки події. Можна у вікні Object Inspector вибрати закладку Events (події) і вибрати подію OnClick. Для  кожної з кнопок потрібно написати такий код:

procedure TForm1.Button1Click(Sender: TObject);

 begin

   Form1.Height:=Form1.Height-100;

   Form1.Width:=Form1.Width-50;

 end;

procedure TForm1.Button2Click(Sender: TObject);

 begin

   Form1.Height:=Form1.Height+200;

   Form1.Width:=Form1.Width+100;

 end;

procedure TForm1.Button3Click(Sender: TObject);

 begin

   Button1.Visible:=False;

   Button2.Visible:=False;

   Button3.Visible:=False;

   Button4.Visible:=False;

   Button5.Visible:=False;

 end;

procedure TForm1.Button6Click(Sender: TObject);

 begin

   Button1.Visible:=True;

   Button2.Visible:=True;

   Button3.Visible:=True;

   Button4.Visible:=True;

   Button5.Visible:=True;

 end;

procedure TForm1.Button4Click(Sender: TObject);

 begin

   Form1.Color:=clBlue;

 end;

procedure TForm1.Button5Click(Sender: TObject);

 begin

   Form1.Color:=clYellow;

 end;

procedure TForm1.Button7Click(Sender: TObject);

 begin

   Form1.WindowState:=wsMaximized;

 end;

procedure TForm1.Button8Click(Sender: TObject);

 begin

   Form1.WindowState:=wsMinimized;

 end;

procedure TForm1.Button9Click(Sender: TObject);

 begin

   Close;

 end;