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

Информатика. Программирование в Delphi
62
//процедура для обработки события OnMouseMove
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
end;
end.
13. В процедуре FormMouseMove между словами begin и end введем:
Form1.Caption:='X:'+IntToStr(X)+#32+'Y:'+IntToStr(Y);
Получится следующее:
//процедура для обработки события 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;
Рис. 2.22 Рис. 2.23
Запустим проект, нажав клавишу F9 на клавиатуре. Подвигаем мышью по
форме. Один из вариантов формы показан на рис. 2.22.
Закроем форму, нажав на кнопку Закрыть в правом верхнем углу формы
или комбинацию клавиш Ctrl+F2 на клавиатуре.
14. В инспекторе объектов найдем событие OnKeyPress, которое проис-