CnPack Forum - Powered by Discuz! Board

Subject: 求助，动态创建tcnbitbtn出问题，占资源100% [Print This Page]

Author: musesun Time: 2010-1-6 18:07 Subject: 求助，动态创建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;
两行之一就正常了。
奇怪！

Author: musesun Time: 2010-1-6 22:13

定位到错误行：cnbuttons.pas
  if FModernBtnStyle = bsModern then // 现代模式直接画，以避免圆角底色问题，但可能闪烁
  begin
    if FRoundCorner then // 圆角时处理透明问题
       RenewBack;

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

Welcome to CnPack Forum (http://bbs.cnpack.org/)