unit1.pas: Fnester zentrieren

1 files changed, 4 insertions, 0 deletions

diff --git a/unit1.pas b/unit1.pas
index cf26780..e8132be 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -52,6 +52,8 @@ begin
   {$IFDEF DEBUG}
   writeln('application.createForm(tForm2, form2);');
   {$ENDIF}
+  form2.left:=(screen.width-form2.width) div 2;
+  form2.top:=(screen.height-form2.height) div 2;
   case form2.showmodal of
     mrBuchstabenraetsel:
       raetsel:=tBuchstabenRaetsel.create(form1);
@@ -64,6 +66,8 @@ begin
     end;
   end;
   raetsel.onSetCaption:=@onSetCaption;
+  left:=(screen.width-width) div 2;
+  top:=(screen.height-height) div 2;
 end;
 
 procedure tForm1.onSetCaption(c: string);