Komponenten verschieben und MouseUP

[LoL]

hi zusammen!

folgendes Problem:
ich hab hier im forum ne einfache möglichkeit gefunden um eine komponente zur laufzeit zu verschieben:

Delphi-Quellcode:

const sc_dragmove = $f012;
begin
  ReleaseCapture;
  sender.perform(WM_SysCommand, SC_DragMove, 0);

funktioniert einwandfrei nur wird jetzt bei mir das OnMouseUp-Ereignis nicht mehr ausgelöst! Woran kann das liegen?

[LoL]

kann mir irgendeiner helfen?

[Khabarakh]

Kann ihm + mir irgendeiner helfen?
Folgendes Problem: Ich möchte während des Verschiebens einen Vorgang unterbrechen, aber dazu muss ich natürlich wissen, wann das Verschieben beendet ist. Ich könnte einfach die Koordinaten vergleichen, aber gibt es vielleicht einen anderen, besseren Weg?

[SirThornberry]

das ganze kommt eben durch Release Capture und dieses SysCommand. Aber es dürfte ja nicht das problem sein das MouseUp manuell danach auszulösen.

Delphi-Quellcode:

ReleaseCapture; 
sender.perform(WM_SysCommand, SC_DragMove, 0);
if Assigned(OnMouseUp) then
  OnMouseUp(Sender, Button, Shift, X, Y);

[Khabarakh]

:stupid: Lösungen können so einfach sein... Ich wäre nie darauf gekommen, dass Perform einfach während der Message-Bearbeitung wartet.
Vielen Dank!