怎么使用TListview，请大家教教小弟（在线等待）！

Question

那个大哥能详细的讲一下怎么使用这个控件啊？

Answer 1

procedure TTD_Main.TD_TVDblClick(Sender: TObject);
var
  n: Integer;
  Node: TTreeNode;
begin
 begin
  Node := TD_TV.Selected;
  if (Node = nil) or (Node.StateIndex = -1) then Exit;
  n := Node.StateIndex;
  case n of
  1:begin
    DateIn_SBClick(self);
    end;
  2:begin
    DataInM_SBClick(self);
    end;
  3:begin
    CustomItem9Click(self);
    end;
  11:begin    //²ÆÎñ±¨±í
    showmessage('good');
   else
    begin
    end;
  end;end;