我碰到了和你一样的问题,参见
http://www.csdn.net/expert/topic/521/521873.xml?temp=.5340082
http://www.csdn.net/expert/topic/522/522352.xml?temp=.8340113
或许会有帮助
http://www.csdn.net/expert/topic/521/521873.xml?temp=.5340082
http://www.csdn.net/expert/topic/522/522352.xml?temp=.8340113
或许会有帮助
procedure TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
ListItem : TListItem ;
begin
ListItem := ListView1.GetItemAt(x,y);
ListView1.Selected := ListItem ;
end;