diff options
author | Erich Eckner <git@eckner.net> | 2015-11-26 21:01:16 +0100 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2015-11-26 21:05:00 +0100 |
commit | 22a0a9ed48095c4da42d3d20b5d80ffe16aab30b (patch) | |
tree | 6a7013b6c0ae191178efe29b60b3f55300990ccf /unit1.pas | |
parent | 48bb7c68a39a769cce7ffb9a02ee1563163388d1 (diff) | |
download | FH-Wetter-22a0a9ed48095c4da42d3d20b5d80ffe16aab30b.tar.xz |
Esc versteckt jetzt das Fenster
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; |