diff options
Diffstat (limited to 'unit1.pas')
-rw-r--r-- | unit1.pas | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -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; |