关于CheckListBox极极极简单的问题

procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      i:integer;  
  begin  
      CheckListBox1.Clear;  
      ADOQuery1.Close;  
      ADOQuery1.SQL.Clear;  
      ADOQuery1.SQL.Add('Select   *   from   XXX');  
      ADOQuery1.Open;  
   
      ADOquery1.First;  
      While   ADOQuery1.Eof<>True   then  
          begin  
              CheckListBox1.Items.Add(ADOQuery1.fieldByName('字段名1').AsString+'       '+ADOQuery1.fieldByName('字段名2').AsString);  
          end;  
         
   
  end;  
   
  假设字段1和字段2都是50个字符，但第一条记录内容很少而第二条内容很多取出来排列就成了  
   
  1     1  
  2222222222     222222222222  
   
  很不好看，CheckListBox1.Items   有没有类试于TListItem那样可以加SubItems这样一排排下来  
   
  1                                     1  
  222222222                     222222222222  
   
   
  还有CheckListBox如何加标题栏吗？  
  问题点数：20、回复次数：4Top

1 楼rouqing（*冰雨&双子座奇缘*）回复于 2004-12-04 17:41:16 得分 0

ADOquery1.First;  
      While   ADOQuery1.Eof<>True   then  
          begin  
              CheckListBox1.Items.Add(ADOQuery1.fieldByName('字段名1').AsString+'       '+ADOQuery1.fieldByName('字段名2').AsString);  
                ADoQuery1.Next;//忘记写这句了吧-----------  
          end;  
   
  CheckListBox没有标题栏吧Top

2 楼fjonline_cn（）回复于 2004-12-04 17:42:50 得分 0

那怎么排列呢？Top

3 楼rouqing（*冰雨&双子座奇缘*）回复于 2004-12-04 17:49:36 得分 15

你用CheckListBox就是要哪个Box框吧，TListView也有的，把他的一个属性设置为true就可以了，我忘记了，CheckListBox很难实现并排排列数据的，除非每个item数据   中间加空格等等方法吧Top

4 楼ffengabc（G拯救明天）回复于 2004-12-04 17:54:08 得分 5

if   str<max(length)   then  
      str:=str+'   'Top

相关问题

• checklistbox
• adoquery
• 字段名
• fieldbyname
• asstring
• item
• begin
• add
• true

• 帖主：fjonline_cn
• rouqing
• ffengabc

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载