Стр. 60 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
60
//процедура для обработки события OnCreate
procedure TForm1.FormCreate(Sender: TObject);
begin
//инициализация генератора случайных чисел
Randomize;
end;
//процедура для обработки события OnClick
procedure TForm1.FormClick(Sender: TObject);
begin
end;
end.
11. В процедуре FormClick между словами begin и end введем:
Form1.Color:=random(2147483647);
Получим следующее:
//процедура для обработки события OnClick
procedure TForm1.FormClick(Sender: TObject);
begin
//цвет формы задается целым числом от 0 до 2147483647
//при щелчке мышью по форме случайным образом задается ее цвет
Form1.Color:=random(2147483647);
end;
Запустим проект, нажав кнопку F9. Щелкнем по форме несколько раз.
Один из вариантов формы показан на рис. 2.20.
Закроем форму, нажав кнопку Закрыть в правом верхнем углу формы
или Ctrl+F2 на клавиатуре.
12. В инспекторе объектов найдем событие OnMouseMove. Оно проис-
ходит при движении мыши по форме. Для того, чтобы создать процедуру
FormMouseMove для обработки события OnMouseMove, щелкнем два раза
мышью по правому полю события OnMouseMove (рис. 2.21).
В итоге в правом поле появится название процедуры FormMouseMove
(рис. 2.21). В разделе объявления типов в типе TForm1 будет объявлена проце-
дура FormMouseMove и в разделе implementation будет вставлен шаблон про-
цедуры FormMouseMove (листинг 2.4).
Листинг 2.4
unit Unit1;