求助，动态创建tcnbitbtn出问题，占资源100% - CnVCL 组件包 - CnPack Forum

新警察

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;
两行之一就正常了。
奇怪！

musesun

新警察

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关掉成功运行，缺点是没有圆角了，暂时先这样