tlistview控件小问题，高手进在线等之

Question

设置tlistview的checkbox属性后，我单击选择checkbox的同时也选择对应的这项呢？
因为选取的那行不等于listview.selected，我想知道选中了哪一行怎么办？  

Answer 1

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  TheItem:TListItem;
begin
  if Button=mbLeft then
  begin
    TheItem:= ListView1.GetItemAt(X,Y);
    if TheItem<>nil then
      if TheItem.Checked then
        ShowMessage(TheItem.Caption);
  end;
end;

Answer 2

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  TheItem:TListItem;
begin
  if Button=mbLeft then
  begin
    TheItem:= ListView1.GetItemAt(X,Y);
    if TheItem<>nil then
      if TheItem.Checked then
      begin
        TheItem.Selected:=True;
        ShowMessage(TheItem.Caption);
      end;
  end;
end;

Answer 3

达到和tcheckbox控件相同的效果才行呀

Answer 4

而且还要是：如果当前是check状态，那么再次单击它时就变取消，反之变选择