怎么让listbox每隔一行变换一种颜色？

Question

为什么不用ListView?好看又好用 ViewStyle := vsReport
颜色改变在OnCustomDrawItem中写

Answer 1

在OnCustomDrawItem中写
可以用Brush来改变颜色！

Answer 2

1 能具体点吗？
2 listview怎么添加一条信息
3 对应每条信息有个id号我想在点击该信息时间弹出新窗口显示详细内容该怎么实现？

Answer 3

First;
While not EOF do
begin
with frmSelectJG.lvToSel.Items.Add do
begin
Caption := FieldByName('JGID').AsString;
SubItems.Add(FieldByName('JGM').AsString);
SubItems.Add(FieldByName('JGMC').AsString);
end;
Next;
end;

Answer 4

上面的就是例子
每个Item 的Caption 就是你要取的ID

Answer 5

谢谢，上面的例子是对应listview的吧，这样吧，在点击某项时间把id付给一个label请您给看看怎么解决，我是菜鸟，让您见笑了

Answer 6

上面是从我的程序里复制的，我再写一篇
填充 ListView1 :
with DataSet1 do
begin
 First;
 While not EOF do
 begin
   with ListView1.Items.Add do
   begin
     Caption := FieldByName('字段1').AsString;
     SubItems.Add(FieldByName('字段2').AsString);   end;
   Next;
 end;//while
end;//with 
在ListView1的OnClick事件中
if ListView1.Selected <> nil then
begin
 Label1.Caption := ListView1.Selected.Caption;
end;
看明白了？