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