Определение перемещения формы. Вариант 2

Written on 24 Октября 2007. Posted in [Delphi] Пользовательский интерфейс. Окна и формы

Вы должны объявить процедуру в секции protected класса формы.

Procedure WMMove(Var Message : TWMMove); message WM_Move;

Procedure TForm1.WMMove(Var Message : TWMMove);
begin

Label1.Caption := 'X = '+IntToStr(Message.XPos)+', Y = '+IntTOStr(Message.

YPos);

end;

Событие генерируется в течение всего времени перемещения. Поэтому вам необходимо проверять, удерживается ли на мыши нажатой левая кнопка.