TreeView

[Steven12]

Hallo, ich habe ein paar fragen zum TreeView unswar:

Wie kann man per Button1 ein neuer Knoten und per Button2 untereinträge erstellen:

http://ruschy.de/test.jpg

---------------
Für jeden untereintrag soll in einem RichEdit ein Text eingetragen werden den man dann auch abspeichern kann...

Ich hoffe ihr wisst wie ich es meine & könnt mir helfen

[fLaSh11]

Untereintrag? geht das nicht mit AddChild?

//Edit: und speichern so am besten mit ini:
[3432452]
Egal=Text
...=...
[...]
...=...

P.S.: Davon gibts auch ne Anleitung! Und im die Suche findet sicher auch einiges!

[Angel4585]

Guggs du

Delphi-Quellcode:

var
 t : TTreeNode;
begin
with TreeView.Items do
  begin
  AddChild(nil,'Knoten1');
  t:=AddChild(nil,'Knoten2');
  AddChild(t,'Unterpunkt1');
  AddChild(nil,'Knoten3');
  end;
end;

[Steven12]

Zitat von fLaSh11:

Untereintrag? geht das nicht mit AddChild?

Ich weiß gar nicht was bzw wie du das meinst...?
// Edit: Schon ok
----
Angel4585 ich verstehe das nicht so wirklich brauche ich dafür nicht noch ein paar variablen?

[Die Muhkuh]

Zitat von Angel4585:

Guggs du

Delphi-Quellcode:

with TreeView.Items do
  begin
  AddChild(nil,'Knoten1');
  t:=AddChild(nil,'Knoten2);
  AddChild(t,'Unterpunkt1');
  AddChild(nil,'Knoten3');
  end;

*klugscheiß*

Geht nicht, da fehlt ein '

Delphi-Quellcode:

with TreeView.Items do
  begin
  AddChild(nil,'Knoten1');
  t:=AddChild(nil,'Knoten2');  // Hier fehlte ein ' zum schluss :P
  AddChild(t,'Unterpunkt1');
  AddChild(nil,'Knoten3');
  end;

[Steven12]

Danke für die hilfen schon einmal!

Delphi-Quellcode:

  t:=AddChild(nil,'Knoten2);
  AddChild(t,'Unterpunkt1');

In den 2 Zeilen wird mein einfehler amgezeigt unswar beim t ich denke das ich dafür noch eine variable benötige... Aber welche?

[Angel4585]

@Klugscheisser: habs oben korrigiert

@Steven: Variable hab ich oben auch dazugemacht

Erklärung:

Addchild gibt das Treenode das man gerade erstellt hat zurück,
wenn du einen Unterpunkt erstellen willst, übergibts du einfach den Knoten wo du den Punkt anheften willst(in meinem Beispiel ist das das "t")
wenn du einen komplett neuen Knoten erstellen willst übergibst du eben "nil"

[Steven12]

Ok dankeschön das ist klasse!
Aber ich möchte auch noch gerne für jedes
AddChild(t,'Unterpunkt1'); Also Unterpunkt möchte ich in ein RichEditwas eintragen und wenn möglich diesen eintrag auch unter diesem Unterpunkt speichern wenn ihr mir da auch nocheinmal helfenkönntet wäre supi?

[Angel4585]

Zitat von Steven12:

Ok dankeschön das ist klasse!
Aber ich möchte auch noch gerne für jedes
AddChild(t,'Unterpunkt1'); Also Unterpunkt möchte ich in ein RichEditwas eintragen und wenn möglich diesen eintrag auch unter diesem Unterpunkt speichern wenn ihr mir da auch nocheinmal helfenkönntet wäre supi?

guggs du weidahahaa

Delphi-Quellcode:

procedure TForm1.TreeViewChange(Sender: TObject; Node: TTreeNode);
begin
with TreeView do
  begin
  if Selected.Text = 'Unterpunkt1' then
    begin
    ...
    //Wie man unter dem Punkt jetzt am besten was speichert weis ich leider nicht  
    end;
  end;
end;

[Steven12]

Mh... Also eigentlich wollte ich wenn ich jetzte ein 'Unterpunkt1' & noch einen 'Unterpunkt2' und wenn ich zb 'Unterpunkt1' anklicke kann ich was dafür ins RichEdit schreiben und wenn ich 'Unterpunkt2' anklicke kann ich dafür auch was reinschreiben...?