Detect a moving form

Posted in Forms

You must intercept WM_MOVE message. Implementation of this idea is so:

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
  private
    procedure MyMessage(var Msg: TWMMove); message WM_MOVE;
    { Private declarations }
  public
    { Public declarations }
  end;
...
procedure TForm1.MyMessage(var Msg: TWMMove);
begin
  if Msg.Result=0 then
  begin
    Label1.Caption:='x - '+IntToStr(Msg.XPos);
    Label2.Caption:='y - '+IntToStr(Msg.YPos);
  end;
end;