Tasten abfragen

[cchris]

Ich möchte, dass wenn auf der Tastatur eine Taste von 0 bis 9 gedrückt wird, dass die proceduren button1click=0 bis button10click=9 für die richtige Taste ausgeführt werden ich habe es mit Form1.KeyDown, Form1.KeyPress und Form1.Keyup versucht. Key hatte ich mit case abgefragt:

Delphi-Quellcode:

case key of
'1': button2click(nil)

...

Aber keines der 3 EVENTS trat jemals auf ( ich hatte noch zum Testen ein showmessage vor das case geschrieben ) .

Die Anwendung soll nur reagieren, wenn sie den Fokus hat.

cu Chris

[Luckie]

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  case key of
    '1': ShowMessage(Key);
  end;
end;

Geht. KeyPreview der Form steh auch auf TRUE?

[RomanK]

hoi,
du musst KeyPreview des Forms auf True setzen (OI)

[edit] Mist, luckie war schneller :evil:

[cchris]

danke!
Das Problem lag bei KeyPreview. Ich wusste nicht,
dass man das auf True setzen muss.

cu Chris :coder:

[Tpercon]

Warum steht das in der Rubrik Api? Das sollte mal jemand verschieben.