VerySource

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 1050|回复: 6

vclskin 皮肤应用-- 窗体停靠到panel上,窗体中的控件失效,高手来啊!

[复制链接]

1

主题

1

帖子

2.00

积分

新手上路

Rank: 1

积分
2.00
发表于 2020-12-9 09:30:01 | 显示全部楼层 |阅读模式
新建两个窗体,frmMain和frmConfig
在frmMain中放一个skinData1,panel1
在代码中执行停靠时,
frmConfig中的Button不是skinData1设定的风格
其它的窗体弹出,风格没有问题。就是不能停靠。
如果把停靠的窗体通过双击上面的小栏,变回一个完整的窗体,
这时Button才变成skinData1中设定的风格
一天了,郁闷啊!
回复

使用道具 举报

0

主题

4

帖子

5.00

积分

新手上路

Rank: 1

积分
5.00
发表于 2020-12-9 20:15:01 | 显示全部楼层
晕  不知道你说的什么意思 反正VCLSKIN就两个属性 一个激活为TRUE 另一个加载皮肤的路径就行了
回复

使用道具 举报

0

主题

16

帖子

16.00

积分

新手上路

Rank: 1

积分
16.00
发表于 2020-12-9 20:30:02 | 显示全部楼层
一般不用这些控件,第三方控件很多时候会有问题。自己不好控制。
回复

使用道具 举报

0

主题

14

帖子

9.00

积分

新手上路

Rank: 1

积分
9.00
发表于 2020-12-9 20:45:01 | 显示全部楼层
没有重绘吧 没有用过这个控件,我用过businessSkinform 应该比这个好很多
回复

使用道具 举报

0

主题

6

帖子

7.00

积分

新手上路

Rank: 1

积分
7.00
发表于 2020-12-9 21:00:01 | 显示全部楼层
在frmConfig的OnActivate事件中加入代码试试
procedure frmConfig.FormActivate(Sender: TObject);
begin
  frmMain.mySkinData.SkinForm(Self.Handle);
end;
回复

使用道具 举报

0

主题

2

帖子

3.00

积分

新手上路

Rank: 1

积分
3.00
发表于 2020-12-9 21:15:01 | 显示全部楼层
if frm <> nil then
          begin
            LockWindowUpdate(Panel_Client.Handle);
            try

              frm.Hint := ACaption;
              frm.BorderStyle := bsNone;
              frm.Visible := false;
              frm.Parent := Panel_Client;
              frm.Align := alClient;
              frm.Visible := true;
              skindata1.AddNestForm(Self, frm);
              skindata1.UpdateSkinControl(self);
              frm.SetFocus;
            except;

            end;
            LockWindowUpdate(0);
          end;

      end;
回复

使用道具 举报

0

主题

1

帖子

2.00

积分

新手上路

Rank: 1

积分
2.00
发表于 2020-12-9 21:30:01 | 显示全部楼层
说不定就是VCLSkin的BUG呢,控件不稳定也是经常遇到的问题!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|CopyRight © 2008-2023|verysource.com ( 京ICP备17048824号-1 )

快速回复 返回顶部 返回列表