Delphi中将ShowMessage,MessageDlg, MessageBox,InputBox,InputQuery及任意模态窗口相对主窗口(父窗口、母窗口）居中-Toy模板网

这篇具有很好参考价值的文章主要介绍了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;

文章来源地址https://www.toymoban.com/news/detail-807417.html

到了这里，关于Delphi中将ShowMessage,MessageDlg, MessageBox,InputBox,InputQuery及任意模态窗口相对主窗口(父窗口、母窗口）居中的文章就介绍完了。如果您还想了解更多内容，请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章，希望大家以后多多支持TOY模板网！