5,928
社区成员




procedure TForm1.FormCreate(Sender: TObject);
begin
if not SkinData1.Active then
begin
SkinData1.Active:= True;
end;
OpenDialog1.Filter:='Skin皮肤文件(*.skn)|*.SKN';
OpenDialog1.InitialDir:='D:\Program Files\VclSkin\VCLSkin5.03.07.12\skins\'
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
// SkinData1.LoadFromCollection(SkinStore1, 0);
// SkinStore1.LoadFromFile(OpenDialog1.FileName);
SkinData1.SkinFile:= OpenDialog1.FileName;
// SkinData1.SkinStore:= OpenDialog1.FileName;
end;
end;