Zitat von
sirius:
Du sollst es ja mal durchlesen!
Zitat:
ssShift Die Taste Umschalt wird gedrückt gehalten.
ssAlt Die Taste Alt wird gedrückt gehalten.
ssCtrl Die Taste Strg wird gedrückt gehalten.
ssLeft Die linke Maustaste wird gedrückt gehalten.
ssRight Die rechte Maustaste wird gedrückt gehalten.
ssMiddle Die mittlere Maustaste wird gedrückt gehalten.
ssDouble Es wurde mit der Maus doppelgeklickt.
Delphi-Quellcode:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssleft in shift then showmessage('Linke Maustaste gedrückt!');
end;
Wir reden aneinander vorbei.
Und gelesen habe ich es schon
Ich benötige den TMouseButton status und nicht den des TShiftState.
Oder habe ich hier ..
Delphi-Quellcode:
procedure ControlMouseMove(aCtrl : TObject;
Button : TMouseButton;
Shift : TShiftState;
X : Integer;
Y : Integer);
den Button als TShiftState deklariert ?
gruss Emil