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

前端之家收集整理的这篇文章主要介绍了delphi – 从样式Dialog / ShowMessage边框中排除VCL样式前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
有没有办法将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]);

对话框如下所示:

原文链接:https://www.f2er.com/delphi/101845.html

猜你在找的Delphi相关文章