假设有一Listview已填充好数据,要求有一Edit,输入列名,相应的列即变色,如何做到?
解决方案 »
- 如果让你从新开发C/S系统(类似ERP这样的管理系统),您会选择什么开发语言?
- delphi 多线程 单步调试 诡异现象 无法挂起
- Tmediaplayer放.dat的时候怎么让显示区域变大一点呢?
- DELPHI有没有像VB那样的可以在窗体上画线的控件?
- table的问题
- 谁有asksky的论坛相关资料,包括他的一切的一切~!
- 谢谢 wangqiang75,帮了我的大忙,wangqing75请进加分
- Delphi中怎样声明一个类?怎样实现多态?如果要在类库的一个类中添加一个方法又怎么做? 然后怎样封装它?是不是封装以后维护就非常简单? 可
- 走人,散功,要分的朋友请进//qiubolecn(来自差生市)
- 如何固定内容的高度(报表),记录少时,后面用空白填充?
- 和mm聊天了,高兴ing...
- 如何用frprintgrid打印?
不过你要把listview重画一遍
procedure TfrmQueue.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
//背景颜色处理用canvas
if subitem=3 then begin
case TurnId of //获得不同班次的颜色
0:listview1.Canvas.Brush.Color:=clRed;//listitem.:=clBlue;//clWindow,clBlack,clDkGray,clGray,clGreen,clPurple,clRed,clSilver,clSkyBlue,clTeal,clWhite,clYellow
1:listview1.Canvas.Brush.Color:=clBlue;
2:listview1.Canvas.Brush.Color:=clTeal;
3:listview1.Canvas.Brush.Color:=clGreen;
4:listview1.Canvas.Brush.Color:=clGray;
5:listview1.Canvas.Brush.Color:=clPurple;
6:listview1.Canvas.Brush.Color:=clBlack;
end;
end;
end;