Fenster richtiger positioniert

1 files changed, 2 insertions, 2 deletions

diff --git a/unit1.pas b/unit1.pas
index 7b151b0..e38a5ad 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -176,8 +176,8 @@ end;
 
 procedure TForm1.FormShow(Sender: TObject);
 begin
-  form1.top:=screen.height-form1.height-24;
-  form1.left:=screen.width-form1.width;
+  form1.top:= screen.monitors[0].top +screen.monitors[0].height-form1.height-24;
+  form1.left:=screen.monitors[0].left+screen.monitors[0].width -form1.width;
 end;
 
 procedure TForm1.TrayIcon1Click(Sender: TObject);