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

Информатика. Программирование в Delphi
64
begin
//цвет формы задается целым числом от 0 до 2147483647
//при щелчке мышью по форме случайным образом задается ее цвет
Form1.Color:=random(2147483647);
end;
//процедура для обработки события OnMouseMove
//X,Y координаты мыши
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y:
Integer);
begin
//заголовку формы присваиваются значения координат X и Y мыши,
//переведенные из типа Integer в тип String с помощью функции IntToStr
//#32 – код пробела
Form1.Caption:='X:'+IntToStr(X)+#32+'Y:'+IntToStr(Y);
end;
//процедура для обработки события OnKeyPress
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
end;
end.
15. В процедуре FormKeyPress между словами begin и end введем сле-
дующее:
if key=#27 then
Application.Terminate;
Получаем следующее:
//процедура для обработки события OnKeyPress
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
//в переменную Key возвращается код нажатой клавиши
//код #27 - код клавиши Esc
//если была нажата клавиша Esc, то приложение завершает работу
if key=#27 then
Application.Terminate;
end;
Запустим проект, нажав кнопку F9 на клавиатуре. Нажмем кнопку Esc.
Приложение должно завершить работу.
В листинге 2.6 содержится весь код нашего приложения. Комментарии