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'
Weiss jemand wieso?

Gruss Jjep