ГДЗ до підручника «Інформатика» Й.Я. Ривкінда. 8 клас

Практична робота № 9

Стор. 178

1. Подвійний клік па ярлику Lazarus.

2. Панель Standard → Кнопка.

3. Встановити властивості Інспектор об’єктів → Властивості.

4. Встановити властивості Інспектор об’єктів → Властивості.

5. Встановити властивості Інспектор об’єктів → Властивості.

6. Зберегти проект можна, використовуючи команду Зберегти всі меню Файл, або кнопку Зберегти всі панель інструментів, або команду Зберегти проект меню Проект.

7. Кнопка F9.

8. Інспектор об’єктів → Подія → OnClick.

9. Інспектор об'єктів → Подія → OnMouseMovi.

10. Зберегти проект можна, використовуючи команду Зберегти всі меню Файл, або кнопку Зберегти всі панель інструментів, або команду Зберегти проект меню Проект.

11. Меню Проект → Відкрити.

12. Меню Файл → Вихід або кнопка керування вікном Закрити, або комбінація клавіш Alt+F4.

13. Меню Проект → Закрити проект або кнопка керування вікном Закрити.

Код програми:

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Width:=800;

Form1.Height:=400;

Form1.Color:=clGreen;

Button1.Width:=200;

Button1.Height:=Button1.Height+10;

Button1.Left:=Button1.Left-50;

Buttonl.Top:=Button1.Top-30;

{Button1.Enable:=False;}

end;

procedure TForm1.Button2MouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Labe1.Color:=clRed;

Label1.Left:=Labell.Left+50;

Label1.Top:=Labell.Top+30;

Label1.Font.Color:=clBlue;

Label1.Caption:=’Ми вивчаємо мову програмування Object Pascal’+IntToStr(X)+‘и’+IntToStr(Y);

end;