delphi – 如何使MessageDlg以所有者形式为中心

前端之家收集整理的这篇文章主要介绍了delphi – 如何使MessageDlg以所有者形式为中心前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我希望MessageDlg以其父表单为中心.
关于如何在Delphi 2010中完成这项工作的任何建议?

我在下面找到了这个代码http://delphi.about.com/od/formsdialogs/l/aa010304a.htm,但对我来说并不行.弹出窗口仍然不是以所有者形式为中心. (对我来说,方法实际上不知道所有者的形式是不清楚的)

function TForm1.MessageDlg(const Msg: string; DlgType: TMsgDlgType;
   Buttons: TMsgDlgButtons; HelpCtx: Integer): Integer;
 begin
   with CreateMessageDialog(Msg,DlgType,Buttons) do
     try
       Position := poOwnerFormCenter;
       Result := ShowModal
     finally
       Free
     end
 end;

解决方法

你可以做
function MessageDlg(const AOwner: TForm; const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; HelpCtx: Integer = 0): Integer;
begin
  with CreateMessageDialog(Msg,Buttons) do
    try
      Left := AOwner.Left + (AOwner.Width - Width) div 2;
      Top := AOwner.Top + (AOwner.Height - Height) div 2;
      Result := ShowModal;
    finally
      Free;
    end
end;

并称之为

procedure TForm1.FormClick(Sender: TObject);
begin
  MessageDlg(Self,'This is a test',mtInformation,[mbOK]);
end;

但是,我个人不会这样做,因为CreateMessageDialog所显示的对话框不是本地Windows对话框.将视觉效果与原始内容进行比较:

procedure TForm1.FormClick(Sender: TObject);
begin
  case MessageBox(Handle,PChar('This is a test. Do you wish to do something?'),PChar('A Silly Example'),MB_ICONQUESTION or MB_YESNO) of
    ID_YES:
      MessageBox(Handle,PChar('Great!'),MB_ICONINFORMATION or MB_OK);
    ID_NO:
      MessageBox(Handle,PChar('OK,well,I cannot force you...'),MB_ICONINFORMATION or MB_OK);
  end;
end;

至少在启用Aero主题的Windows 7中,本机对话框看起来好多了.然而,似乎这不能集中在任何特定的形式上.相反,对话框以当前显示器为中心.但这也是Windows中的默认行为(尝试记事本,写字板或油漆),那么为什么需要这种新行为?

猜你在找的Delphi相关文章