如何编写,listview所选择项为蓝色 如何编写,listview所选择项为蓝色 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 晕死,来来就是蓝色的呀,要全行都蓝设RowSelect=true 不好意思,没有说明白,我是指当用户点击listview中的某一项时,这一项的被景色为设为蓝色,当移开listview时,listview中的那一项的蓝色还在.这有变于用户上一次是点击的那一项. listview控件有个HideSelection属性,设置为True后,会使得当你点其他控件时,出现会色阴影。但想要实现你的要求的话,只能是在OnCustomDrawItem等自画事件中写代码了。 procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);begin if Integer(Item.Data)=1 then ListView1.Canvas.Font.Color := clBlue;end;procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);begin Item.Data := Pointer(1);end; DelphiXE下的泛型 ODBC访问mysql的问题 一年忙到底,祝大家过个快乐春节,分++! 请问如何 控制 excel 自动设置 列的宽度????????????? 关闭windows(包括2000和XP)程序代码 D6,D7和D8有什么区别,我至今还在用D6! 用Delphi封装的DLL碰到的问题 工具栏和菜单栏的随意拖拉怎么实现??/ 又多了个角,散分。。。 在WINDOWS 2000中如何用DHCP分配IP 如何设定菜单列表的宽度??? 关于ExitWindoesEx的问题?
要全行都蓝设RowSelect=true
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Integer(Item.Data)=1 then
ListView1.Canvas.Font.Color := clBlue;
end;procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
begin
Item.Data := Pointer(1);
end;