Delphi 点击按钮换主题

    本文实现的是Delphi点击按钮换主题，虽然实现，但是主题的顺序没搞懂。（试发帖）

　　

 1 procedure TForm1.btn1Click(Sender: TObject);
 2 begin
 3 　　lbl1.Font.Height:=36;
 4 　　TStyleManager.SetStyle(TStyleManager.StyleNames[2]);
 5 end;
 6 
 7 procedure TForm1.Button1Click(Sender: TObject);
 8 begin
 9 　　TStyleManager.SetStyle(TStyleManager.StyleNames[3]);
10 end;
11 
12 procedure TForm1.Button2Click(Sender: TObject);
13 begin
14 　　TStyleManager.SetStyle(TStyleManager.StyleNames[4]);
15 end;
16 
17 procedure TForm1.Button3Click(Sender: TObject);
18 begin
19 　　TStyleManager.SetStyle(TStyleManager.StyleNames[5]);
20 end;
21 
22 procedure TForm1.Button4Click(Sender: TObject);
23 begin
24 　　TStyleManager.SetStyle(TStyleManager.StyleNames[1]);
25 end;
26 
27 procedure TForm1.FormCreate(Sender: TObject);
28 var
29 　　formfile:TArray<String>;
30 begin
31 　　SetLength(formfile,5);
32 　　formfile[0]:='Windows10SlateGray.vsf';
33 　　formfile[1]:='CyanNight.vsf';
34 　　formfile[2]:='Windows10Blue.vsf';
35 　　formfile[3]:='Windows10Green.vsf';
36 　　formfile[4]:='Windows10Dark.vsf';
37 　　//TStyleManager.LoadFromFile('Windows10SlateGray.vsf');  //只使用指定主题，用这两句。
38 　　//TStyleManager.SetStyle(TStyleManager.StyleNames[1]);
39 　　TStyleManager.LoadDesigningStyles(formfile);
40 
41 end;

    主题文件所在位置：\RAD Studio 11.2\Extra\Styles 中。

posted @ 2022-09-29 09:26  我爱chi芒果  阅读(38)  评论(0)    收藏  举报