Form.Top und Height während des Verschiebens ermitteln

[jaenicke]

Funktioniert ja sicherlich auch. Und man kann ja auch direkt Top und Left in WMMove abfragen, das klappt sicher auch, denn wenn das Formular an der neuen Stelle ist, dann sind diese Werte auch aktualisiert.

// EDIT:
Es gibt auch: Msg.XPos, Msg.YPos, Msg.Pos.x, Msg.Pos.y
Und das klappt so auch:

Delphi-Quellcode:

  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure WMMove(var Msg: TWMMove); message WM_MOVE;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMMove(var Msg: TWMMove);
begin
  Caption := IntToStr(Left) + ', ' + IntToStr(Top);
end;