Delphi-PRAXiS - Tastenkombinationen (Strg+ ...) abfragen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)

- - Tastenkombinationen (Strg+ ...) abfragen (https://www.delphipraxis.net/158688-tastenkombinationen-strg-abfragen.html)

Dunkelbunt27

26. Feb 2011 21:58

Tastenkombinationen (Strg+ ...) abfragen

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

26. Feb 2011 22:08

AW: Tastenkombinationen (Strg+ ...) abfragen

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

26. Feb 2011 22:29

AW: Tastenkombinationen (Strg+ ...) abfragen

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

26. Feb 2011 22:49

AW: Tastenkombinationen (Strg+ ...) abfragen

Danke,

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

FG Dunkelbunt

Alle Zeitangaben in WEZ +1. Es ist jetzt 19:06 Uhr.