Xue&Design

问题：

我在窗体上建立了个skindata控件,和一个打开文件控件,然后代码:

--------------------------------------------------------------------------------------------------
procedure TForm1.Button6Click(Sender: TObject);
begin
    OpenDialog2.Execute;
    SkinData1.Active:=true;
    SkinData1.SkinStore:=OpenDialog2.FileName;
end;

--------------------------------------------------------------------------------------------------
我这样做编绎不会错,但是运行时无论有没有选中更换的皮肤文件,都会更换到另一个皮肤,而且只能是更换到那种皮肤,如果你接着换第二次皮肤就会弹出错误,说工程检查到类错误,EACCESS Violation.这是怎么回事呢?还有换皮肤究竟怎么换的?

解决方法：

应该是先：SkinData1.Active := false; 设置完文件后再设置true 。代码如下： 

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