Практична робота 8 клас "Проєкт "Моя Україна""

Практична робота «Моя Україна»

1. Запустити програму на виконання
2. Змінити значення властивостей форми Form 1 →Caption – Україна, →Height -200, Width -300, → Color –clMenuHighlight
3. Розмістити на формі кнопку. Змінити властивості кнопки  → Caption Моя Україна, Height -100, Width -250 Font –за власним вподобанням
4. В меню файл вибрати елемент «Створити форму» → зробити форму поточною і змінити її властивості Form 2 →Caption – Опис, →Height -200, Width -500, → Color –clYellow
5. Розмістити на формі три кнопки. Змінити властивості кнопок: Button 1: Caption – Столиця, Button 2: Caption – Державний  устрій; Button 3: Caption – Територія та населення.
6. Розмістити на формі 3 три надписи.

• Змінити властивості надписів: Label1 –«Столиця: Київ. Географічна широта та довгота: 20,27 пн.ш. 30.30 сх.д.» Visible –False, Font – за власним бажанням.
• Label2 – «Державний устрій: парламентсько – презедентська республіка. Незалежність проголошено 24 серпня1991 року» Visible –False, Font – за власним бажанням.
• Label3– «Кількість населення 42760500. Загальна площа території 603628км.кв.» Visible –False, Font – за власним бажанням.

7. Зробити форму 1 поточною. У редакторі коду після слова “implementation”написати  uses Unit2 (для підключення другої форми).
8. Вибрати кнопку Button1 на Form1 і записати код в інспекторі подій.

procedure TForm1.Button1Click(Sender: TObject);

begin

  Unit2.Form2.ShowModal;

end;

9. Зробити форму 2 поточною. Виділити кнопку Button1, написати програмний код  в інспекторі подій:

procedure TForm2.Button1Click(Sender: TObject);

begin

  Label1.Visible:=True;

  Label2.Visible:=False;

  Label3.Visible:=False;

end;

10. Виділити кнопку Button2, написати програмний код  в інспекторі подій:

procedure TForm2.Button2Click(Sender: TObject);

begin

  Label1.Visible:=False;

  Label2.Visible:=True;

  Label3.Visible:=False;

end;

11. Виділити кнопку Button3, написати програмний код  в інспекторі подій:

procedure TForm2.Button3Click(Sender: TObject);

begin

  Label1.Visible:=False;

  Label2.Visible:=False;

  Label3.Visible:=True;

end;      

12. Запустити проект на виконання. Перевірити правильність виконання. Результат показати вчителю