CnPack Forum


 
Subject: 求助,动态创建tcnbitbtn出问题,占资源100%
musesun
新警察
Rank: 1



UID 45432
Digest Posts 0
Credits 6
Posts 2
点点分 6
Reading Access 10
Registered 2010-1-6
Status Offline
Post at 2010-1-6 18:07  Profile | Blog | P.M. 
求助,动态创建tcnbitbtn出问题,占资源100%

with TCnBitBtn.Create(Self) do
          begin
            Parent :=form1;
            width := 143;
            Height := 88;
            Margins.Top:=1;
            Margins.Bottom:=1;
            Margins.Left:=1;
            Margins.Right:=1;
            AlignWithMargins:=True;
            Visible := True;
            Caption := FieldByName('name').AsString + ' (' + FieldByName('count').AsString + ')';
            BtnColorStyle := bcsRed;
            Name := 'c_' + trim(FieldByName('sn').AsString);
            OnClick := coursebtnClick;
            if FieldByName('count').AsInteger = 0 then
              Enabled := false;
          end;

delphi 2010下这段代码导致程序始终占资源100%,删除parent:=form1或者BtnColorStyle := bcsRed;
两行之一就正常了。
奇怪!
Top
musesun
新警察
Rank: 1



UID 45432
Digest Posts 0
Credits 6
Posts 2
点点分 6
Reading Access 10
Registered 2010-1-6
Status Offline
Post at 2010-1-6 22:13  Profile | Blog | P.M. 
定位到错误行:cnbuttons.pas
  if FModernBtnStyle = bsModern then // 现代模式直接画,以避免圆角底色问题,但可能闪烁
  begin
          if FRoundCorner then // 圆角时处理透明问题
            RenewBack;

把RenewBack关掉成功运行,缺点是没有圆角了,暂时先这样
Top
 




All times are GMT++8, the time now is 2024-3-28 21:57

    本论坛支付平台由支付宝提供
携手打造安全诚信的交易社区 Powered by Discuz! 5.0.0  © 2001-2006 Comsenz Inc.
Processed in 0.007052 second(s), 7 queries , Gzip enabled

Clear Cookies - Contact Us - CnPack Website - Archiver - WAP