Hallo!
Ich würde gerne eine Form durch Druck der ESC-Taste schließen, allerdings schaffe ich es nicht irgendwelche Tastendrücke in der Form abzufangen. Ich habe hier im Forum gesucht und folgendes einfache Beispiel gefunden. Allerdings klappt es auch hier nicht und es wird bei Tastendruck nie eine Message angezeigt.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 =
class(TForm)
procedure FormKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview := True;
end;
procedure TForm1.FormKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
ShowMessage( Format( '
%d', [ Key ] ) );
end;
end.
Woran kann es liegen, dass keine Tastendrücke erkannt werden?
Gruß
Simon