listview的check问题

[liu925]

当单击listview中的内容时，如何让它的check也处于选中状态？

[jinjazz]

onclick里面写checked:=true

[liu925]

写过了，没有反应

[jinzhili]

procedure TForm1.lvClieck(lv: TListView);
var
p: TPoint;
r: TRect;
begin
p.X:=0;
p.Y:=0;
GetCursorPos(p) ;
p:=lv.ScreenToClient(p) ;
if Assigned(lv.Selected) then
begin
r:=lv.Selected.DisplayRect(drLabel);

if (p.X > r.Left) and
(p.Y > r.Top ) and (p.Y < r.Bottom ) then
begin
lv.Selected.Checked:=not lv.Selected.Checked;
end;
end;
end;