【结贴】如何必变下面数据的显示格式

lixy

CheckListBox只要填字符串，就自己出checkbox了。
那个多出来的是
checkBox := TCheckBox.Create(lForm.CheckListBox1);
        checkBox.Parent := lForm.CheckListBox1;
        checkBox.Caption := tempContractorName;
        checkBox.Name := 'checkBox'+ sysUtils.IntToStr(i+1);
        checkBox.Width := 380;
        checkBox.Font.Size := 16;
        checkBox.Left := 15;
        checkBox.Top := lTop +25;

江振辉

谢谢版主，我将这段代码注掉，多出那一个就不再显示了，这样通过什么方式可以改变那两个checkbox的样式呢？

zfang

CheckListBox1的样式不好改的。

江振辉

我写了这样的代码，为什么在点10楼的OK按钮时，偶尔有反应，然后设断点调试取CheckListBox1里的Component个数怎么为0我还有没有其它的方式确认CheckListBox1的那个checkBox被选中，然后将显示出来的"长江有限公司、ddd"赋给字符串变量lContractor
if lForm.ShowModal = Controls.mrOK then
      begin
           for i := 0 to lForm.CheckListBox1.ComponentCount - 1 do
           begin
              if lForm.CheckListBox1.Components is TCheckBox then
              begin
                  checkBox := TCheckBox(lForm.CheckListBox1.Components);
                  if checkBox.Checked then
                  begin
                    lContractor := checkBox.Caption;
                  end;
              end;
           end;
      end;
      Result := lContractor;

江振辉

解决了
谢谢！

江振辉

结吧