Fensterposition anzeigen?

[Sir Rufo]

Zitat von Hawkeye219:

Hallo,

mit ReleaseCapture beendest du die Verarbeitung der Mausnachrichten bis zum nächsten Capture, das MouseUp-Ereignis dürfte also nicht ausgelöst werden. Du könntest aber die Nachricht WM_WINDOWPOSCHANGING im Formular abfangen:

Delphi-Quellcode:

type
  TForm1 = class (TForm)
  private
    procedure WMWindowPosChanging (var Message: TWMWindowPosChanging); 
      message WM_WINDOWPOSCHANGING;
  end;

procedure TForm1.WMWindowPosChanging (var Message: TWMWindowPosChanging);
begin
  inherited;
  Label1.Caption:=IntToStr(Top);
end;

Gruß Hawkeye

Also da würde ich ja eher die Nachricht WM_WINDOWPOSCHANGED benutzen, also wenn die Änderung abgeschlossen ist.
Dann ist Formular am Bestimmungsort angekommen und die Werte sind auch verfügbar.

cu

Oliver