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.ä.