Autor Beitrag
Scotch
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 101


Delphi 6 Prof
BeitragVerfasst: Fr 29.02.08 00:32 
Hallo,

wie kann ich mit einem Button einen Node bei der TTreeview Komponente öffnen bzw schließen?

Gruß ingo
_frank_
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 343
Erhaltene Danke: 1

Win XP
Delphi 3 Prof / Turbo Delphi Explorer
BeitragVerfasst: Fr 29.02.08 00:56 
ausblenden Delphi-Quelltext
1:
2:
3:
4:
var tn:TTreenode;

tn:=Treeview1.selected;
if assigned(tn) then tn.expand(false); //true statt false klappt unterknoten auch mit aus


HTH Frank

_________________
EB FE (die wahrscheinlich kürzeste Endlosschleife der Welt :) )
BA 01 00 00 00 52 EB 09 BB 4D 11 86 7C FF D3 EB 0D E8 F2 FF FF FF 63 68 61 72 6D 61 70 00 C3
Scotch Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 101


Delphi 6 Prof
BeitragVerfasst: Fr 29.02.08 15:09 
Hallo Frank irgendwie werde ich daraus nicht schlau.
Oder ich habe mein Problem falsch beschrieben.
Also ich habe ein Treeview in dem es mehrere Gruppen gibt.
Darüber habe ich für die Gruppen jeweils eine Schaltfläche.
Durch betätigen der Schaltfläche soll sich dann die dazugehörige Gruppe öffnen.
Ich habe noch mal ein Screen Shot gemacht.
Gruß Ingo
user defined image
Yogu
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 2598
Erhaltene Danke: 156

Ubuntu 13.04, Win 7
C# (VS 2013)
BeitragVerfasst: Fr 29.02.08 16:16 
Hallo,

du willst also beim Klick auf den Button "Normal" den Zweig "Normal" aufklappen, beim Klick auf "Weiche" den gleichnamigen usw.

ausblenden Delphi-Quelltext
1:
TreeView1.Items.GetFirstNode.Expand(False);					

Das erweitert den ersten Zweig. So könntest du "Normal" aufklappen.

ausblenden Delphi-Quelltext
1:
TreeView1.Items.GetFirstNode.getNextSibling.Expand(False);					

Das erweitert den zweiten Hauptzweig, also "Weiche".

Wenn du getNextSibling öfters hintereinander hängst, dann gehst du immer einen Zweig weiter.

Grüße,
Yogu
Scotch Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 101


Delphi 6 Prof
BeitragVerfasst: Fr 29.02.08 17:49 
Super Yogu,
das ist was ich gesucht habe.

Gruß ingo