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

Информатика. Программирование в Delphi
80
//процедура выполняется при нажатии мышью по кнопке Button1
procedure TForm1.Button1Click(Sender: TObject);
begin
//вывод на экран сообщения
ShowMessage('Мы так и думали!!!');
end;
//процедура выполняется при движении мыши по кнопке Button2
procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState;
X,Y: Integer);
begin
end;
end.
В процедуру Button2MouseMove введем строки:
//абсцисса кнопки Button2
//вычитаем ширину кнопки для того, чтобы
//кнопка не выходила за пределы формы
Button2.Left:=random(Form1.ClientWidth-Button2.Width);
//ордината кнопки Button2
//вычитаем высоту кнопки для того, чтобы
//кнопка не выходила за пределы формы
Button2.Top:=random(Form1.ClientHeight-Button2.Height);
20. В процедуру FormCreate введем строку, позволяющую инициализи-
ровать генератор случайных чисел.
//инициализация генератора случайных чисел
Randomize;
Запустим проект. Попробуем нажать на кнопку Нет (рис. 4.19).
Рис. 4.19