Listbox, bei Überschrift-klick kommt ausführlicher Bericht

[Matze]

Am Besten erstellst du erst Crossposts, wenn in einem Thema nach 12 Stunden noch keine Antwort da ist. Da vergeht mir komplett die Lust zu helfen, daher halte ich mich nun auch sehr kurz.

Delphi-Quellcode:

// Hinzufügen von Terminen
procedure AddEvent(EventName: string; EventDescription: string; TView: TTreeView);
var
  TreeNode: TTreeNode;
begin
  TreeNode := TView.Items.AddFirst(nil, EventName);
  TView.Items.AddChild(TreeNode, EventDescription);

  // oder als (etwas unübersichtlicher) 1-Zeiler:
  // TView.Items.AddChild(TView.Items.AddFirst(nil, EventName), EventDescription);
end;

// Möglicher Aufruf
procedure TForm1.Button1Click(Sender: TObject);
begin
  AddEvent('Termin 1', 'Kaktus gießen, bevor er vertrocknet *g*', TreeView1);
end;

Es wäre dann sinnvoll, im DF Bescheid zu geben, dass das Problem geklärt ist. Sonst rackern sich dort auch welche ab und tippseln Code, obwohl alles bereits geklärt ist.
Tutorials zum TTreeView gibt's übrigens viele. Da erfährst du dann auch, wie du Items löschen kannst o.ä.