Tastenkombinationen (Strg+ ...) abfragen

[Dunkelbunt27]

Hallo Delphi-PRAXIS,

wie kann man Tastenkombinationen abfragen? Also z.B. Strg+A?
Mit einer if-Abfrage, kann man ja nicht 2x fragen ob key = VK_CONTROl ans key ='A' ist...

FG Dunkelbunt

[Bummi]

sowas ?
Keypreview auf dem Form und

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = 65) and (ssCtrl in Shift) then Caption := 'gefunden' ;

end;

[sx2008]

Das geht auch ganz schmerzlos mit einer TActionList.
Actionlist auf's Formular, eine neue Action dazu und Property ShortCut belegen.
Eventhandler für OnExecute anlegen und die Action an einen Button oder Menuepunkt anbinden.

[Dunkelbunt27]

Danke,

2 gute Ideen, die denke ich beide das Richtige machen...

FG Dunkelbunt