企业管理软件版1楼: 如何实现VCLSkin 动态更换换皮肤源代码怎么写

2楼: SkinData1.LoadFromFile(＂c:＼a.skn＂) ;
SkinData1.LoadFromCollection(); 如用友软件反记账

3楼: 我写了这样的代码但无法实现
begin
OpenDialog1.filter:=＇＇Skin files (*.skn)|*.SKN＇＇;
OpenDialog1.initialdir:=＇＇D:＼学习＼delphi＼第三方控件＼niker76_vclskin_v3.02＼vclskin3＼skins＼＇＇;
if OpenDialog1.execute then
SkinData1.skinstore:=OpenDialog1.filename;
if not SkinData1.Active then
SkinData1.Active:=true;
skindata1.Free;
opendialog1.Free;
and

4楼: begin
OpenDialog1.filter:=＇＇Skin files (*.skn)|*.SKN＇＇;
OpenDialog1.initialdir:=＇＇D:＼学习＼delphi＼第三方控件＼niker76_vclskin_v3.02＼vclskin3＼skins＼＇＇;
if OpenDialog1.execute then
SkinData1.LoadFromFile(OpenDialog1.filename);
if not SkinData1.Active then
SkinData1.Active:=true;
skindata1.Free;
opendialog1.Free;
and

5楼: 不过 vclskin 在xp开启主题的情况下很难看， 非常难看

6楼: 还是出错提示是：

Project Project1.exe raised exception class EAccessViolation with massage ＇＇Access violation at address 00000000,read pf address 00000000＇＇,Process stopped,Use Step or Run to continue.
我运行时候是连着数据库的，，不知道有没有影响

企业管理软件版7楼: 关掉数据库试试啊

8楼: 还是有同样的提示，，不知道那里出的问题．．．．．．．．．．．

9楼: skindata1.Free;
你都FREE掉了

10楼: begin
OpenDialog1.filter:=＇＇Skin files (*.skn)|*.SKN＇＇;
OpenDialog1.initialdir:=＇＇D:＼学习＼delphi＼第三方控件＼niker76_vclskin_v3.02＼vclskin3＼skins＼＇＇;
if OpenDialog1.execute then
[red]SkinData1.LoadFromFile(OpenDialog1.filename);[/red]
if not SkinData1.Active then
SkinData1.Active:=true;
and

11楼: skindata1.Free;
opendialog1.Free;

都去掉

12楼: 多人接受答案了。 如进销存数据库表