Delphi中將ShowMessage,MessageDlg, MessageBox,InputBox,InputQuery及任意模態窗口相對主窗口(父窗口、母窗口）居中

Delphi中調用系統的一些Modal模態對話框(如ShowMessage,MessageDlg, Application.MessageBox,InputBox,InputQuery等），一般是屏幕居中，也有其他窗體的TForm.Position未定義主窗口居中poMainFormCenter，若主窗口不在屏幕中間或多個顯示屏時，這些對話框位置就不在主窗口中間，既不美觀也不便於操作。

本文提供一簡易方法，不修改模態對話框任何代碼，實現將任意模態窗口相對於主窗口（或任意父窗口）居中。本方法也可移植到C#，Java等

procedure NextModalFormMoveToMyCenter(Owner: TForm);
begin
  //From HeZiHang@cnBlogs
  TThread.ForceQueue(nil,
    procedure
    var
      R: TRect;
      X, Y: Integer;
    begin
      GetWindowRect(Application.ActiveFormHandle, R);
      X := Owner.Left + (Owner.Width - R.Width) div 2;
      Y := Owner.Top + (Owner.Height - R.Height) div 2; // 將InputBox或MessageBox在Owner Form居中
      SetWindowPos(Application.ActiveFormHandle, HWND_TOP, X,Y, 0, 0, SWP_NOSIZE or SWP_SHOWWINDOW or SWP_NOOWNERZORDER);
    end);
end;


//Demo1：MessageBox自動居中
procedure TForm1.btnResetClick(Sender: TObject);
begin
  NextModalFormMoveToMyCenter(Self);
  if Application.MessageBox('是否復位重啟？', '重啟', MB_YESNOCANCEL or MB_ICONQUESTION or MB_DEFBUTTON2) <> mrYes then
    。。。。。。。。。//此時MessageBox對Form1居中
end;

//Demo2：InputBox自動居中 

procedure TForm1.btnCommandClick(Sender: TObject);

var S: String; begin NextModalFormMoveToMyCenter(Self); S := InputBox('請輸入命令', '命令：', '');。//此時InputBox對Form1居中
 。。。。 end; 
//Demo3:其他窗體，自動居中 procedure TForm1.btnCommandClick(Sender: TObject); var F:TMyForm; S: String; begin NextModalFormMoveToMyCenter(Self); F:=TMyForm.Create(Self); F.ShowModal;//此時 F對Form1居中
  ..............
  F.DisposeOf;
end;