Delphi XE 使用VCL样式更改应用程序的外观
视觉组件库（ VCL）样式是主要的最新版本的Delphi中的新功能。它们是在Delphi XE2中引入的，对于老的Delphi开发人员来说，它们仍然是鲜为人知的功能之一。但是，正如商务人员所说， 外观至关重要，因此您的应用程序的外观可能是从竞争对手那里选择您的产品而不是另一种产品的原因之一。考虑一下，只需单击几下鼠标，便可以将许多不同的样式应用于应用程序以更改其外观。那么，为什么不尝试一下呢？
使用VCL样式更改应用程序的外观
视觉组件库（ VCL）样式是主要的最新版本的Delphi中有新条目。它们是在Delphi XE2中引入的，对于老的Delphi开发人员来说，它们仍然是鲜为人知的功能之一。但是，正如商务人士所说， 外观至关重要，因此您的应用程序的外观可能是从竞争对手那里选择您的产品而不是另一种产品的原因之一。考虑一下，只需单击几下鼠标，便可以将许多不同的样式应用于应用程序以更改其外观。那么，为什么不尝试一下呢？
VCL样式可用于改造旧应用程序或使用非标准GUI创建新应用程序。VCL样式与FireMonkey样式完全不同。它们都是样式，但是具有完全不同的方法和行为。
要开始使用VCL样式，我们将使用一个新的应用程序。因此，让我们创建一个新的VCL应用程序，并将一些组件拖放到主窗体上（例如，两个TButton控件，一个TListBox，一个TComboBox和几个TCheckBox）。
现在，您可以看到在Windows 10计算机上运行的窗体结果：
图1.1：没有样式的窗体
接下来怎么做...
现在，我们通过以下步骤来设置一组不错的样式：
转到
Project|Options从菜单中。然后，在出现的对话框中，转到Application|Appearance并选择我们要包含在应用程序中的样式。如果使用
Preview按钮，IDE将显示带有一些控件的简单窗体预览，我们可以对窗体样式的最终结果有所了解。您可以随意尝试并选择所需的样式。一次只能使用一种样式，但是我们可以在可执行文件中加入链接必要的样式，并在运行时选择适当的样式。从列表中选择你喜欢的样式后，我们必须在底部的组合框中选择一种样式。这个样式将是我们窗体的默认样式，并且将在应用程序启动后立即加载。
单击
OK，单击F9（或转到Run|Run），您的应用程序将被设置样式：
图1.2：与图1.1相同的形式，但应用了Iceberg Classico样式
这是怎么实现的...
选择一个或更多Project| Options| Application| Appearance将导致Delphi将样式资源链接到您的可执行文件中，可以将许多样式链接到可执行文件中，但是一次只能使用一种样式。因此，当有多个样式时，Delphi如何知道要使用哪种样式？如果通过转到| 查看Project文件（带有.dpr扩展名的文件）， 您可以看到这小小的魔术如何发生的。
以下几行是有趣的代码部分：
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
TStyleManager.TrySetStyle('Iceberg Classico');
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end当我们选择Iceberg Classico样式作为默认样式时，Delphi IDE会在创建主窗体之前添加一行，使用TStyleManager.TrySetStyle静态方法为应用程序设置默认样式。
TStyleManager它是处理VCL样式重要的类
更多资源...
Delphi和C ++ Builder 10.2 Tokyo在以下目录的文件夹（带有标准安装）中提供39种VCL样式 C:\Program Files (x86)\Embarcadero\Studio\19.0\Redist\styles\vcl\。
Embarcadero提供了额外的VCL 中提供了八种高级样式高级样式包：https：//cc.embarcadero.com/item/30492。
此外，可以使用“样式设计器”创建自己的样式或修改现有样式。您可以通过访问它Tools| Bitmap Style Designer Menu。
有关如何创建或自定义VCL的更多详细信息样式，请访问 http://docwiki.embarcadero.com/RADStudio/en/Creating_a_Style_using_the_Bitmap_Style_Designer。
|
|
