Toolbutton und Maustaste

[Mattze]

Hallo,

wie kriegt man im OnMouseMove eines Toolbuttons raus, ob eine Maustaste (z.B. die linke) gedrückt ist?

(Wer jetzt "ssLeft in Shift" meint, liegt für Buttons völlig richtig. Aber beim Toolbutton funktioniert das eben nicht. Auch GetAsyncKeyState(vk_LButton) macht er da nicht!)

(D7 pro unter Win10 64 pro)

Gruß
Mattze

[alfold]

Vielleicht mit OnMouseDown vom Toolbutton!?
gruß alfold

[Mattze]

Hallo,

danke für die Antwort, aber das ist es nicht.
Ich brauche es nicht irgendwo, sondern in ONMOUSEMOVE.

Man könnte das sicherlich über eine boolsche Variable steuern.
(OnMousDown: LeftBool:=true; OnmouseUp: LeftBool:=false oder so.)
Aber das wollte ich eigentlich vermeiden, weil es mir wie "von hinten durchs Auge" vorkäme.

Gruß
Mattze

[Sherlock]

Was willst du erreichen oder genauer: welches von wo bekannte Anwendererlebnis möchtest Du imitieren? Im Prinzip sollte onDragEnter oder onDragOver feuern, sobald die Maus bei gedrückter Taste über eine Komponente fährt. Ich meine aber, daß ohne Drag-Inhalt, nur die Komponente benachrichtigt, über der die Maus beim Mousedown-Zeiptunkt war.

Sherlock

[Mattze]

Hallo Sherlock,

auch ein Sherlock kann sich irren!
Das ist nur bei dragmode=dmAutomatic so.
Und genau darum geht es!
Ich muss (oder möchte) das "Draggen und Droppen" per dmManual bei einigen Toolbuttons selber steuern.
Das Click soll aber auch funktionieren.

Dazu muss ich im OnMouseMove das DragBegin(...) starten, aber eben nur, wenn die linke Mousetaste gedrückt ist und sich die Mausposition um ein Delta verschoben hat.
Also muss ich irgendwie rauskriegen, ob die Taste gedrückt ist oder nicht.

Nebenbei: Das ist auch eine prinzipielle Frage. Warum wird im OnMouseMove des Toolbuttons Tshift angeboten, wenn man es nicht sinnvoll benutzen kann?
(Programmiererfaulheit bei Borland? Glaube ich eigentlich nicht!)

Gruß
Mattze