VclSkin原理及相关问题-CSDN论坛

⋅急 Excel两表联合删除指定行！！！ ⋅Memo组件根据字符内容换行？ ⋅VclSkin原理及相关问题 更多帖子 关注私信空间博客 eagle_ice 本版专家分：46 结帖率 100%

大家好，我用的是VclSkin5.03版本，我想请教一下它换皮肤的原理，TSkinData类中有很多类及方法，但是很多不知道是做什么的，还有我通过Button单击换皮肤，没效果，是说要进行画面的更新吗？
Code：



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;

程序运行起来，点击Button没反应？但是如果你在Object Inspector中去设置它的Active和SkinStore再运行就OK，为什么在代码中操作就不行呢？请指教...

0 2009-08-18 20:37:18

回复数 8 只看楼主引用举报楼主

⋅纯属冒泡贴散分 ⋅谁给个包含GDI+库的XE2(x64)下载地址 ⋅版里有空的人, 去整理了一下LY主页的资料吧 更多帖子 关注私信空间博客 dinoalex 本版专家分：30774 黄花 2011年3月 Delphi大版内专家分月排行榜第二 2009年7月 Delphi大版内专家分月排行榜第二 2009年6月 Delphi大版内专家分月排行榜第二 蓝花 2011年4月 Delphi大版内专家分月排行榜第三: 最好是loadfromstream

0 2009-08-18 21:57:24

只看TA 引用举报 #1 得分 3

⋅失业程序员持刀抢银行竟被椅子制住 ⋅魔鬼城日落 ⋅魔鬼城日出 更多帖子 关注私信空间博客 lhy 本版专家分：9417: 好像要用钩子什么的。

0 2009-08-18 23:51:23

只看TA 引用举报 #2 得分 2

⋅bdmh的留言板

⋅Android:都是Layout的BaselineAligned惹的祸

⋅ListView中Button无法点击

更多帖子

关注私信空间博客

bdmh

本版专家分：132237

版主

签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！

名人 2019年荣获名人称号
2013年荣获名人称号

状元 2012年总版技术专家分年内排行榜第一

进士 2013年总版技术专家分年内排行榜第七
2011年总版技术专家分年内排行榜第五
2009年总版技术专家分年内排行榜第九: VclSkin好像有一个激活的属性,要激活它才有效果,好像是active之类的

0 2009-08-19 08:47:15

只看TA 引用举报 #3 得分 2

⋅dev日历控件 schedulerControl ⋅2个字段首位相连的问题 ⋅用soap调用带有验证的webservice,该怎么写？ 更多帖子 关注私信空间博客 7年 本版专家分：4257: 我做了下测试，你改下代码就可以了
procedure TForm1.FormCreate(Sender: TObject);
begin
//  if not SkinData1.Active then
//  begin
//    SkinData1.Active:= True;
//  end;
  OpenDialog1.Filter:='Skin皮肤文件(*.skn)|*.SKN';
  OpenDialog1.InitialDir:='D:\第三方控件\VclSkin\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;
    skindata1.Active:=true;
  end;

end;

0 2009-08-19 08:57:26

只看TA 引用举报 #4    得分 0

⋅急 Excel两表联合删除指定行！！！ ⋅Memo组件根据字符内容换行？ ⋅VclSkin原理及相关问题 更多帖子 关注私信空间博客 eagle_ice 本版专家分：46: 引用 4 楼 zzflover 的回复:
我做了下测试，你改下代码就可以了
procedure TForm1.FormCreate(Sender: TObject);
begin
//  if not SkinData1.Active then
//  begin
//    SkinData1.Active:= True;
//  end;
  OpenDialog1.Filter:='Skin皮肤文件(*.skn)|*.SKN';
  OpenDialog1.InitialDir:='D:\第三方控件\VclSkin\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;
    skindata1.Active:=true;
  end;

end;

这样可以解决问题，但是窗体在关闭的时候会报错...
报错出现在TWinSkinForm.DrawBorder的
temp:=GetHMap(r,fsd.border[n].map,fsd.border[n].r,I,fsd.border[n].frame,Tile,sp);
请问这是什么问题？

0 2009-08-19 09:49:07

只看TA 引用举报 #5    得分 0

⋅dev日历控件 schedulerControl ⋅2个字段首位相连的问题 ⋅用soap调用带有验证的webservice,该怎么写？ 更多帖子 关注私信空间博客 7年 本版专家分：4257: 报错？我这没有啊。==我去试试。

0 2009-08-19 10:41:52

只看TA 引用举报 #6 得分 0

⋅dev日历控件 schedulerControl ⋅2个字段首位相连的问题 ⋅用soap调用带有验证的webservice,该怎么写？ 更多帖子 关注私信空间博客 7年 本版专家分：4257: 我试了，没有报错，你在窗体关闭里写什么代码了？我这么写的，没问题
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  skindata1.Active:=false;
  Action:=cafree;
end;
要不就是VCL版本不一样？

0 2009-08-19 10:45:39

只看TA 引用举报 #7    得分 43

⋅急 Excel两表联合删除指定行！！！ ⋅Memo组件根据字符内容换行？ ⋅VclSkin原理及相关问题 更多帖子 关注私信空间博客 eagle_ice 本版专家分：46: 引用 7 楼 zzflover 的回复:
我试了，没有报错，你在窗体关闭里写什么代码了？我这么写的，没问题
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  skindata1.Active:=false;
  Action:=cafree;
end;
要不就是VCL版本不一样？

正解，窗体关闭时，我没有去将它的Active：= False;多谢...

0 2009-08-19 11:06:51

只看TA 引用举报 #8    得分 0

VclSkin原理及相关问题 [问题点数：50分，结帖人Eagle_ice]