Esc versteckt jetzt das Fenster

1 files changed, 8 insertions, 0 deletions

diff --git a/unit1.pas b/unit1.pas
index 66d910e..64f5f3c 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -21,6 +21,7 @@ type
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormShow(Sender: TObject);
     procedure TrayIcon1Click(Sender: TObject);
     procedure TrayIcon1DblClick(Sender: TObject);
@@ -193,6 +194,13 @@ begin
   wetter.free;
 end;
 
+procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
+  );
+begin
+  if key=27 then
+    form1.visible:=false;
+end;
+
 procedure TForm1.FormShow(Sender: TObject);
 begin
   form1.top:= screen.monitors[0].top +screen.monitors[0].height-form1.height-24;