DragDrop zwischen Controls bei OnClick und PopUpMenü

[Der_Unwissende]

Zitat von Pichel:

Wenn ich TButton Controls per DragDrop verschieben will, um Ihre Reihenfolge zu verändern gibt es da ein großes Problem.
Das OnClick des Button sowie das PopUpMenü wird benutzt.

Hi,
hab jetzt mal einen Tipp, der dich begeistern wird, benutzt einfach nicht das OnClick-Event. Du weißt doch eigentlich was ein Click ist (MouseDown, MouseUp). Wann genau sollte das Ereignis eintreten? Natürlich sobald die Maustaste über dem Button losgelassen wird.
Was macht ein Drag&Drop? Nun ja, Maustaste wird gedrückt, Maus wird bewegt! Maus wird losgelassen.

Jetzt musst du dir eigentlich nur die Ausgangsposition der Maus merken, wenn diese gedrückt wird. Wird diese Position weit genug verändert, so lässt du einfach ein Drag zu. Wird die Maus losgelassen, so schaust du einfach nur, ob es sich um einen Drag&Drop handelt oder nicht. Entsprechend tritt dein OnClick-Code oder halt der Drag&Drop Code ein.

Gruß Der Unwissende