Question

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

Answer 1

膳绫擎是大大我的法度榜样里复制的，我再写一篇填充 ListView1 :with DataSet1 dobegin First; While not EOF dobegin with ListView1.Items.Add do begin Caption := FieldByName('字段1').AsString; begin SubItems.Add(FieldByName('字段2').AsString); end; Next; end;//whileend;//with 在ListView1的OnClick事宜中if ListView1.Selected <> nil then Label1.Caption := ListView1.Selected.Caption;end;看明白了？ 查看更多答案>>