本文整理自网络,侵删。
前期准备:
uses Vcl.Themes, Vcl.WinXCtrls;
procedure TForm1.ComboBox1Change(Sender: TObject);beginTStyleManager.SetStyle(ComboBox1.Text);end;
procedure TForm1.FormCreate(Sender: TObject);varStyleName: string;begin
for StyleName in TStyleManager.StyleNames do ComboBox1.Items.Add(StyleName); ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(TStyleManager.ActiveStyle.Name);
end;
效果图
相关阅读 >>
Delphi tstylemanager读取vsf皮肤文件信息
Delphi 时间与相关类型(3): tfiletime、tsystemtime 及 dos 时间
Delphi webservice 中采用 tsoapattachment 传输文件
更多相关阅读请进入《Delphi》频道 >>