用VCLskin更换皮肤的问题.

[cljforeverlove]

我在窗体上建立了个skindata控件,和一个打开文件控件,然后代码:
procedure TForm1.Button6Click(Sender: TObject);
begin
OpenDialog2.Execute;
SkinData1.Active:=true;
SkinData1.SkinStore:=OpenDialog2.FileName;
end;
我这样做编绎不会错,但是运行时无论有没有选中更换的皮肤文件,都会更换到另一个皮肤,而且只能是更换到那种皮肤,如果你接着换第二次皮肤就会弹出错误,说工程检查到类错误,EACCESS Violation.这是怎么回事呢?还有换皮肤究竟怎么换的?

[liuhengwinner]

应该是先 SkinData1.Active := false;

设置完文件后再设置true

[踢踏]

if OpenDialog2.Execute then
begin
SkinData1.SkinStore:=OpenDialog2.FileName;
if not SkinData1.Active then SkinData1.Active:=true;
end;