Keypress : Strg+Shift ?

[thomas2009]

Sorry, Ich habe "not" ein mal vergessen
also so :

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

if (not(ssCtrl in Shift) and not (ssShift in Shift) )  then Begin
    ShowMessage('Strg+Shift');end;
if ((ssCtrl in Shift) and not (ssShift in Shift) )  then Begin
    ShowMessage('Strg');end;