Prozedur durch Tastatur auslösen

[Tanketorion]

Hi Leute

Ich möchte in eins meiner Programme eine Prozedur einbauen die dann startet wenn man eine bestimmte Taste auf der Tastaur drückt.
Wie kann man das umsetzten?

[m.fuchs]

Zum Beispiel indem du KeyPreview und OnKeyPress deines Forms benutzt.

[Tanketorion]

OK danke
aber wie bindet man das ein??

[Mathias]

Mit dem Objectinspector, dort kommen bei Ereignissen als Onxxx Funktionen.

[Tanketorion]

Ich habe das auf 2 wege ausprobiert und jedesmal kommt die selbe Fehlermeldung...

1. Versuch

Code: Alles auswählen

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
  KeyPreview:=True;
  if Key=VK_S Then ShowMessage ('Hallo')
end;

2. Versuch

Code: Alles auswählen

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
  KeyPreview:=True;
  case Key of
    VK_S : ShowMessage('Hallo');
  end;
end;  

Und jedesmal kommt die Meldung
unit1.pas(36,10)Error:Identifier not found "VK_S"

was mache ich falsch??

[mulcheo]

Code: Alles auswählen

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
  if key='s' then (...)
end; 

wenn du keypreview im Objektinspektor true setzt, geht's auch, sonst schlucken dir die Buttons und Memos mit Fokus zuvor die Tasten weg

[Michl]

unit1.pas(36,10)Error:Identifier not found "VK_S"

Code: Alles auswählen

uses ..., LCLType;

[Tanketorion]

OK danke

also gibt es da dann 3 Möglichkeiten?

1. if key=83 then
2. if key='s' then
3. case key of VK_S mit LCLType bei Uses??

[Komoluna]

du kannst jede Kombination von 's', 83, VK_S und if, case verwenden.
Zum Beispiel

Code: Alles auswählen

if Key = VK_S then ...

's', 83 und VK_S(=$53 = 83) ist in diesem Fall alles dasselbe
und case ist eigentlich nur ein erweitertes if

MFG

Komoluna