从样式Dialog/ShowMessage边框中排除VCL样式

Question

有没有办法从样式化系统对话框的边框中排除VCL样式.

特别是通过调用MessageDlg或ShowMessage显示的对话框.

我读了一些关于"德尔福之路"的文章(这是一个很棒的网站顺便说一句)但找不到答案.

这是我想要实现的目标:

现在(带有样式边框的碳风格):

目标(带标准窗口边框的碳风格):

我仍然想要样式控件但没有样式边框.

seBorder从父表单中删除StyleElements不起作用.

谢谢!

Answer 1

MessageDlg()和ShowMessage()是 Delphi VCL 函数。它们动态创建 DelphiTForm并显示它，因此您没有机会自定义它。但是，您可以改为使用CreateMessageDialog()它来创建相同的TForm，然后根据需要修改其样式元素，然后显示它。例如：

function DoMessageDlgPosHelp(MessageDialog: TForm; X, Y: Integer): Integer;
begin
  with MessageDialog do
    try
      if X >= 0 then Left := X;
      if Y >= 0 then Top := Y;
      if (Y < 0) and (X < 0) then Position := poScreenCenter;
      Result := ShowModal;
    finally
      Free;
    end;
end;

procedure ShowStyledMessage(const Msg: string; const StyleElements: TStyleElements);
var
  Form: TForm;
begin
  Form := CreateMessageDialog(Msg, mtCustom, [mbOK]);
  Form.StyleElements := StyleElements;
  DoMessageDlgPosHelp(Form, -1, -1);
end;

像这样称呼它：

ShowStyledMessage('Some text', [seFont, seClient]);

对话框如下所示：