我在Delphi XE2中使用新的VCL样式系统。它工作得很好,但我希望禁用它,以便在其上有许多图像的特定表单(一个泼水/约表格)。问题是我似乎无法找到将其与特定样式相关联的表单属性,因此不能仅为该表单禁用它。似乎只有全局TStyleManager
类似乎是静态的。
考虑到这一点,实现此目的的唯一方法是调用TStyleManager.TrySetStyle('Windows')
,显示表单,然后在表单关闭时将其设置回原始样式?
答案 0 :(得分:25)
VCL样式将外观应用于所有VCL应用程序,但您可以禁用特定控件类的VCL样式。因此,如果要为特定表单禁用VCL样式,可以使用传递表单类型的RegisterStyleHook
函数和作为空样式挂钩类的TStyleHook
类。
这行代码将禁用TFormChild类型的所有形式的VCL样式:
TStyleManager.Engine.RegisterStyleHook(TFormChild, TStyleHook);
现在,如果您运行此代码,表单的所有控件TFormChild
仍将使用VCL样式绘制,那么为了解决这个问题,您必须使用技巧禁用表单所有控件的默认Style挂钩像这样
unit uChild;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TButton = class(Vcl.StdCtrls.TButton); //This declaration is only for disabling the TButton of this form
TFormChild = class(TForm)
Button1: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;
现在您可以使用此代码禁用此表单的TButton的VCL样式
TStyleManager.Engine.RegisterStyleHook(uChild.TButton, TStyleHook);
如果您想了解有关使用TStyleHook类的更多信息,请查看文章 Exploring Delphi XE2 – VCL Styles Part II 。
答案 1 :(得分:1)
从Splash Form的seClient
属性中删除(取消选中)StyleElements
选项对我来说很成功(Delphi XE10)。
答案 2 :(得分:-2)
最简单的方法是将splash-form放在一个单独的DLL中。那样,造型师就不会碰它。