Virtuelle Tastencodes und Formular-Komponenten gleichzeitig

[mintpc]

Hallo zusammen,

wenn ich im Formular mit virtuellen Tastencodes arbeite:

Code: Alles auswählen

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case key of
        VK_UP : z := 1;
  end;
end;

klappt das.

Wenn ich nun aber einen Button auf dem Formular habe, nimmt das
Formular die Tasteneingaben scheinbar nicht mehr an, jedenfalls passiert
nichts.

1.) Woran liegt das?

2.) Und wie kann man das Problem lösen (also gleichzeitig virtuelle Tastencodes und Button).

Danke schonmal

mintpc

[Teekeks]

Stelle Keypreview von der Form an, dann sollte das auch gehen!

ich hoffe ich konnte dir helfen.

Gruß Teekeks

[m.fuchs]

1.) Woran liegt das?

KeyPreview des Forms ist auf False.

2.) Und wie kann man das Problem lösen (also gleichzeitig virtuelle Tastencodes und Button).

Code: Alles auswählen

Form1.KeyPreview := True;

Zur Erläuterung: das bewirkt dass die Tastaturevents ersteinmal an das Formular geleitet werden.

hth
Micha

[mintpc]

Aha, danke für die schnelle Hilfe und die Erklärung.

Das ist ja interessant und war mir noch gar nicht bewusst. Wieder was
gelernt

mintpc