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

Информатика. Программирование в Delphi
58
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia-
logs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject); //объявление процедуры
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//шаблон процедуры FormCreate
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.
9. В процедуре FormCreate между словами begin и end вставим Random-
ize – вызов процедуры, инициализирующей генератор случайных чисел.
procedure TForm1.FormCreate(Sender: TObject);
begin
//инициализация генератора случайных чисел
Randomize;
end;
10. В инспекторе объектов найдем событие OnClick (происходит при
щелчке мышью по форме). Щелкнем два раза мышью по правому полю. При
этом создается процедура FormClick для обработки события OnClick
(рис. 2.19).
В итоге в правом поле появится название процедуры FormClick
(рис. 2.19). В разделе объявления типов в типе TForm1 будет объявлена проце-
дура FormClick и в разделе implementation будет вставлен шаблон процедуры