小小一个设置程序高级感拉满

原创已于 2023-09-04 05:49:21 修改 · 195 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi11 #外观 #高级感

于 2023-09-04 05:31:19 首次发布

该篇文章介绍了如何在Delphi程序中使用TStyleManager进行控件样式设置，包括Button1Click事件中的TrySetStyle方法和FormCreate事件中的StyleNames遍历。

手动设置

结果如下

代码设置：

procedure TForm1.Button1Click(Sender: TObject);
begin
TStyleManager.TrySetStyle(cbxVclStyles.Text);
end;


procedure TForm1.FormCreate(Sender: TObject);
var
StyleName:string;
begin
for StyleName in TStyleManager.StyleNames do
cbxVclStyles.Items.Add(StyleName )
end;

结果如下：