Shift gedrückt?

[jjep]

Moin moin

Ich möchte gern wissen ob die Shift-Taste gedrückt ist, aber es funktioniert nicht.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var state: TShiftState;
begin
if ssShift in state   then Outputdebugstring('shift ist gedrückt')
                      else Outputdebugstring('shift ist nicht gedrückt');
end;

Wenn ich nun auf den Button1 klicke und dabei shift gedrücke halte, dann zeigts im Debugfenster: 'shift ist nicht gedrückt' :gruebel:
Weiss jemand wieso?

Gruss Jjep

[DeddyH]

Versuch es mal in MouseDown.

[RavenIV]

Wo wird die Variable state zugewiesen?

Versuch mal Dein Glück in MousDown, MouseUp des Buttons oder des Forms.
Dort heisst der Parameter dann aber Shift.

[jjep]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var state: TShiftState;
begin
if ssShift in state   then Outputdebugstring('shift ist gedrückt')
                      else Outputdebugstring('shift ist nicht gedrückt');
end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if ssShift in Shift   then Outputdebugstring('shift ist gedrückt')
                      else Outputdebugstring('shift ist nicht gedrückt');
end;

Hmm in der MouseDown-Methode funktioniert es einwandfrei. Muss man vieleicht "state" nocht irgendwie vorbereiten?
Leider will ich es umbedingt mit der Button1Click-Methode machen. Wüsste jemand wie das möglich ist?

[Corpsman]

Ganz einfach,

Du machst ne "Globale" Variable die du bei Mouse Down Setzt und bei Mouse Up Reset

Dann kannst du die Variable in Click prüfen.

Wenn doch nur alles so einfach wäre ;)

[RavenIV]

Zitat:

Zitat von jjep

Hmm in der MouseDown-Methode funktioniert es einwandfrei. Muss man vieleicht "state" nocht irgendwie vorbereiten?
Leider will ich es umbedingt mit der Button1Click-Methode machen. Wüsste jemand wie das möglich ist?

Im OnClick geht das nicht, weil dort der Status der Shift-Taste nicht bekannt ist.
Du MUSST es in MouseDown oder MouseUp machen.

[jjep]

Zitat:

Ganz einfach,

Du machst ne "Globale" Variable die du bei Mouse Down Setzt und bei Mouse Up Reset

Dann kannst du die Variable in Click prüfen.

Wenn doch nur alles so einfach wäre

Ja geht scho, wäre aber schöner wenn man gerade im Click denn Status direkt abfragen könnte.

Zitat:

Im OnClick geht das nicht, weil dort der Status der Shift-Taste nicht bekannt ist.

Wieso sollte der Status unbekannt sein?
Kann man vieleicht via WinApi auf den Zustand zugreifen?

[RavenIV]

Zitat:

Zitat von jjep

Wieso sollte der Status unbekannt sein?
Kann man vieleicht via WinApi auf den Zustand zugreifen?

Weil der Event-Handler für OnClick das nicht überprüft und weil es ihn auch nicht interessiert.
In dem Moment, wenn Deine Button1OnClick ausgeführt wird, könnte der Status der Shift-Taste schon wieder ein ganz anderer sein. Oder hält der Benutzer die Taste so lange fest, bis Du ihm sagst, dass er sie loslassen darf?

Nur im Event-Handler für OnMouseDown wird die Shift-Taste ausgewertet und an Deine Button1MouseDown kann der Status ausgewertet werden.

Die einzige Möglichkeit ist es, im MouseDown den Status zwischenspeichern und im Click auszuwerten.

Es ist einfach so, es gibt da keine bessere Version.

Das einzige wäre ein MouseHook, aber das willst Du nicht machen, glaub mir.
Das ist sehr viel Aufwand.

[jjep]

Oke
Danke an alle

[bluesbear]

hallo jjep,

Zitat:

Zitat von jjep

Wieso sollte der Status unbekannt sein?
Kann man vieleicht via WinApi auf den Zustand zugreifen?

guck mal in der Hilfe nach GetKeyState, oder GetKeyboardState.
Gruß,
Klaus