ギコナビ更新のダイアログの表示位置をメインダイアログの中心に変更

diff --git a/GikoDataModule.pas b/GikoDataModule.pas
index 3bc16ed..9eae932 100644 (file)
--- a/GikoDataModule.pas
+++ b/GikoDataModule.pas
@@ -4606,7 +4606,7 @@ begin
        end;
     GikoForm.UpdateExePath := '';
     GikoForm.UpdateExeArgs := '';
-    form := TUpdateCheckForm.Create(Self);
+    form := TUpdateCheckForm.Create(GikoForm);
     try
         form.ShowModal;
         shutdown := form.Allowshutdown;

diff --git a/UpdateCheck.dfm b/UpdateCheck.dfm
index c836b67..fcec032 100644 (file)
--- a/UpdateCheck.dfm
+++ b/UpdateCheck.dfm
@@ -11,7 +11,7 @@ object UpdateCheckForm: TUpdateCheckForm
   Font.Name = #65325#65331' '#65328#12468#12471#12483#12463
   Font.Style = []
   OldCreateOrder = False
-  Position = poDesktopCenter
+  Position = poOwnerFormCenter
   OnCreate = FormCreate
   PixelsPerInch = 96
   TextHeight = 12