Drag & Drop: OnClick-Ereignis wird bei OnMouseDown ausgelöst

[Pfoto]

Hallo zusammen!

ich stoße hier gerade auf ein nerviges Problem beim
Drag & Drop innerhalb einer Listbox.

Sobald der Drag & Drop-Modus aktiv ist (per daManual +
BeginDrag oder daAutomatic) wird schon beim
Herunterdrücken der Maustaste das OnClick-Ereignis ausgelöst.

Lasse ich die Taste los, folgt wie bekannt das
OnClick-Ereignis nochmals.

Ist das nun ein Bug oder Feature? :shock:

Im code zu BeginDrag finde ich folgende Zeile:

Delphi-Quellcode:

Perform(WM_LBUTTONUP, 0, Longint(PointToSmallPoint(P)));

Das heißt doch, dass hier bewußt das Signal für das
Loslasen der Maustaste gefeuert wird, oder?


Ich unterstelle mal, dass dies nicht ohne Grund so
vorhanden ist, auch wenn ich es nicht kapiere, aber
habt ihr eine Idee, wie ich das Auslösen des OnClick-
Ereignisses trotzdem unterbinden kann?



Dank und Gruß
Pfoto