Draggen und klicken bei einem Objekt beides ermöglichen

[BenjaminH]

Ich habs jetzt folgendermaßen probiert:
In OnMouseDown wird BeginDrag(false, DragThreshold) aufgerufen.
Statt des normalen OnClick habe ich dafür OnMouseUp reagiert, um entscheiden zu können, ob das Objekt gedraggt wurde, oder nicht.
if not TControl(Sender).Dragging then Jetzt habe ich folgendes Problem: BeginDrag ruft Perform(WM_LBUTTONUP, 0, Longint(PointToSmallPoint(P))); auf. Dadurch wird OnMouseUp aufgerufen, obwohl das nicht passiert, wodurch sich mein Objekt nicht so verhält wie ich es will.
Weiß jemand, wie ich es hinbekomme, dass bei OnMouseDown das Dragging beginnt und bei OnMouseUp der Klick ausgelöst wird - aber nur, wenn der Anwender nicht draggt

Vielen Dank,
Benjamin