Hotkey mit TShiftState

[Manzoni]

Hallo,

ich will in einer Memo-Komponente eine Tastenkombination einbauen bei der dann etwas passieren soll. Meine Idee war es im OnKeyDown-Ereignis die Eingaben abzufangen und Nachzuschauen ob die Shifttaste gedrückt ist und Enter betätigt wird. Das Attribut Shift in diesem Ereignis ist vom Typ TShiftState welches ein set ist. Meine Abfrage sieht so aus:

Delphi-Quellcode:

procedure TFProgramm.MEingabeKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if not Shift=[ssShift] then
    if Key=13 then BButtonClick(nil);
end;

Der Compiler meldet mir dann:

Zitat:

Zitat von Compiler

[Fehler] UProgramm.pas(503): Operator ist auf diesen Operandentyp nicht anwendbar
[Fataler Fehler] programm.dpr(17): Verwendete Unit 'UProgramm.pas' kann nicht compiliert werden

Wo liegt mein Fehler? Gibt es eventuell sogar einen eleganteren Weg?

[mirage228]

Versuch mal:

Delphi-Quellcode:

if (not (ssShift in Shift)) then
...

mfG
mirage228

[Manzoni]

Danke das war's! Funktioniert jetzt einwandfrei! :dp: