程式執行時更改程式外觀
新建自己的VCL程式,在PROJECT>OPTIONS>Application>Appearance 下選擇好自己喜歡的幾個樣式
如下圖
然後按OK。
在視窗中放置PANNEL,頂部對齊;LISTBOX控制元件居中對齊;底部放置一個BUTTON按鈕,結果如下圖
程式碼如下
unit Unit1;
interface
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;
type TForm1 = class(TForm) Button1: TButton; ListBox1: TListBox; Panel1: TPanel; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations }
public { Public declarations } end;
var Form1: TForm1;
implementation uses Vcl.Themes, Vcl.Styles; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin TStyleManager.SetStyle(ListBox1.Items[ListBox1.ItemIndex]); end;
procedure TForm1.FormCreate(Sender: TObject); var stylename:string ; begin ListBox1.Clear; for stylename in TStyleManager.StyleNames do begin ListBox1.Items.Add(stylename); end;
end ;
end.
執行時如下: