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

发布时间：2020-12-15 04:18:27 所属栏目：大数据来源：网络整理

导读：有没有办法将VCL样式排除在样式化系统对话框的边框之外. 特别是通过调用MessageDlg或ShowMessage显示的对话框. 我读了一些关于“德尔福之路”的文章(这是一个很棒的网站顺便说一句)但找不到答案. 这是我想要实现的目标：现在(带有样式边框的碳风格)：目标(

有没有办法将VCL样式排除在样式化系统对话框的边框之外.

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

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

这是我想要实现的目标：

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

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

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

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

谢谢！

解决方法

MessageDlg()和ShowMessage()是Delphi VCL函数.他们动态创建Delphi TForm并显示它,因此您没有机会对其进行自定义.但是,您可以使用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]);

对话框如下所示：

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!