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

Информатика. Программирование в Delphi
66
Form1.Caption:='X:'+IntToStr(X)+#32+'Y:'+IntToStr(Y);
end;
//процедура для обработки события OnKeyPress
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then
Application.Terminate;
end;
end.
Пример 2.2 (выполнить самостоятельно)
Создать форму со следующими свойствами:
− ширина – 300 пикселей,
− высота – 400 пикселей,
− цвет – clYellow ,
− стиль границы – bsSingle,
− кнопки biSystemMenu,
− заголовок Новое приложение.
Приложение должно:
− по щелчку мыши завершать работу,
− при движении мыши менять цвет формы на произвольный,
− при нажатии на кнопку пробел (код #32) выдавать координаты мыши в
заголовке формы.
Координаты мыши возвращаются функциями Mouse.CursorPos.X и
Mouse.CursorPos.Y.
Пример 2.3 (выполнить самостоятельно)
Разработать приложение, в котором:
− ширина формы – 400 пикселей,
− высота формы – 200 пикселей,
− цвет формы – случайный,
− стиль границ формы – bsDialog.
Все эти свойства задаются в процедуре FormCreate, которая выполняется при
создании формы. Приложение должно по щелчку мыши по форме случайным обра-
зом (с помощью функции Random) менять ее координаты Form1.Left и Form1.Top.
Подсказка
Form1.Left:=random(Monitor.Width-Form1.Width),
Form1.Top:=random(Monitor.Height-Form1.Height).
Функции Monitor.Width и Monitor.Height возвращают текущую ширину
и высоту экрана. Ширина и высота формы отнимаются от ширины и высоты
экрана, для того чтобы форма не выходила за его пределы.