有没有办法将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]);
对话框如下所示：