TTreeNode.Data verwenden

[Christian Seehase]

Moin Chewie,

hier mal ein Muster (Treeview, ListView mit einer Spalte, Style=vsReport)

Delphi-Quellcode:

procedure TfrmMAIN.TreeView1Click(Sender: TObject);

  function GetUsedFunctions : TStringList;
  begin
    Result := TStringList.Create;
    Result.Add('Zeile1');
    Result.Add('Zeile2');
  end;

var
  i : integer;

begin
  if TreeView1.Selected = nil then exit;
  if TreeView1.Selected.HasChildren then exit;
  if TreeView1.Selected.Data = nil then
  begin
    TreeView1.Selected.Data := GetUsedFunctions;
  end;
  ListView1.Items.BeginUpdate;
  try
    ListView1.Items.Clear;
    for i := 0 to TStrings(TreeView1.Selected.Data).Count-1 do
    begin
      ListView1.Items.Add;
      ListView1.Items[ListView1.Items.Count-1].Caption := TStrings(TreeView1.Selected.Data)[i];
    end;
  finally
    ListView1.Items.EndUpdate;
  end;
end;