Определение перемещения формы. Вариант 2
|
|
Вы должны объявить процедуру в секции 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; Событие генерируется в течение всего времени перемещения. Поэтому вам необходимо проверять, удерживается ли на мыши нажатой левая кнопка. |