TToolbar Buttons "draggen" (wie Firefox-Lesezeichenleiste)

[wicht]

Hallo liebes Forum,

ich habe da mal wieder ein kleines Problem. Zur Zeit versuche ich, eine TToolbar-Ableitung zu bauen, mit eigener TToolButton Klasse. Die einzelnen Buttons sollen Lesezeichen darstellen und sind halt wie in den meisten Browsern oben unter dem Menü sichtbar. Bis jetzt funktioniert auch alles wie gewünscht, nur soll der Benutzer die einzelnen Buttons auch verschieben können. Ich habe es zuerst mit DragMode auf dmAutomatic probiert. Dann kann man die Buttons zwar schön verschieben, aber sie sind nicht mehr anklickbar, was das ganze recht unbrauchbar macht.
Dann habe ich probiert, im Button MouseDown und MouseMove zu überschreiben - im MouseMove kann ich aber Shift auf ssLeft nicht abfragen, das ist immer False. GetKeyState scheint das auch nicht hinzubekommen.
Entweder muss ich den Button im dmAutomatic klickbar bekommen, oder den Drag-Vorgang selbst starten, was mit dem ssLeft-Problem auch schwierig wird glaube ich.

Fällt da irgendjemandem eventuell etwas zu ein? Oder gibt's dafür schon eine Klasse? Vielen Dank im Vorraus!

Grüße,
Alexander