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

Информатика. Программирование в Delphi
82
Form1.BorderIcons:=[biSystemMenu];
Label1.Font.Name:='Comic Sans MS';
Label1.Font.Size:=14;
Label1.Font.Color:=clNavy;
Label1.Font.Style:=[fsBold];
Button1.Caption:='Да';
Button2.Caption:='Нет';
Randomize;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Мы так и думали!!!');
end;
procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState;
X,Y: Integer);
begin
Button2.Left:=random(Form1.ClientWidth-Button2.Width);
Button2.Top:=random(Form1.ClientHeight-Button2.Height);
end;
end.