・板一覧更新の処理メッセージを追加

[gikonavigoeson/gikonavi.git] / UpdateCheck.pas

diff --git a/UpdateCheck.pas b/UpdateCheck.pas
index 2495065..dd25272 100644 (file)
--- a/UpdateCheck.pas
+++ b/UpdateCheck.pas
@@ -281,7 +281,18 @@ end;
 
 //! Form\83R\83\93\83X\83g\83\89\83N\83^
 procedure TUpdateCheckForm.FormCreate(Sender: TObject);
+var
+    CenterForm: TCustomForm;
 begin
+    CenterForm := TCustomForm(Owner);
+    if Assigned(CenterForm) then begin
+        Left := ((CenterForm.Width - Width) div 2) + CenterForm.Left;
+        Top := ((CenterForm.Height - Height) div 2) + CenterForm.Top;
+    end else begin
+        Left := (Screen.Width - Width) div 2;
+        Top := (Screen.Height - Height) div 2;
+    end;
+
     ResultMemo.Lines.Clear;
     FExecPath := '';
     FExecArgs := '';