Thema: Delphi KeyPress und Pfeiltasten

Einzelnen Beitrag anzeigen

Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#5

Re: KeyPress und Pfeiltasten

  Alt 20. Mär 2008, 17:42
Habe gerade noch etwas (merkwürdiges) festgestellt.

Falls sich keine Control auf der Form befinden, wird Beep beim Drücken von VK_LEFT
aufgerufen.
Wenn dann z.B ein TButton auf die Form gesetzt wird, wird Beep nicht mehr aufgerufen.

Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_LEFT then
    Beep;
end;
Thomas
  Mit Zitat antworten Zitat