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