Tastenkombination Problem bei Keypress

[thomas2009]

Hallo

wie kann ich überprüfen ob eine Taste ohne Tastenkombination gedrückt wurde ?
Die Pfeil-Rechts Taste soll 2 Funktionen tun
Wenn die Taste alleine gedrückt wird
Und ein mal, wenn die Taste mit Ctrl zusammen gedrückt werden

ssCtrl not in Shift

Delphi-Quellcode:

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

if(Key =39)then
    begin
      ShowMessage('Pfeil rechts nur'); // !!!
    end;

if((ssCtrl in Shift) and (Key =39))then
    begin
      ShowMessage('Ctrl + Pfeil rechts'); // OK
    end;
end;

Ich have versucht mit dem Code aber wird nicht angenommen

Delphi-Quellcode:

if((ssCtrl not in Shift) and (Key =39))then // Fehler hier "not in" wird nicht angenommen 
    begin
      ShowMessage('Pfeil rechts nur'); // !!!
    end;

[turboPASCAL]

Wie wäre es denn damit:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if((ssCtrl in Shift) and (Key =39))then
  begin
    ShowMessage('Ctrl + Pfeil rechts');
  end else  // <--<<
  if(Key =39)then
  begin
    ShowMessage('Pfeil rechts nur');
  end;
end;

;)

[Uwe Raabe]

Es heißt ja auch

Delphi-Quellcode:

if not (ssCtrl in Shift) then