5,388
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.listview1Exit(Sender: TObject);
var
r:TRect;
item:TListItem;
begin
item:=listview1.Selected;
r:=Item.DisplayRect(drSelectBounds);
with TCustomListView(sender).Canvas do
begin
Brush.Color:=clred; //此处设置为红色
FillRect(r);
TextOut(r.Left+2,r.Top+2,item.caption);
end;
end;