Treeview-node mit eine PageControl TabSheet kuppeln?

[PeterKiers]

Hi Leute...

Hab einen treeview und ein PageControl mit 3 Sheets gemacht.

wie kann ich ein Treeview-node mit eine PageControl TabSheet kuppeln?

Vielen Dank für die Hilfe im vorraus

Viele Grüße,
Peter

[bigg]

moin moin,


gib jedem Knoten und jeder Seite eine eindeutige ID.
Dann kann man je nachdem, was man benötigt danach suchen.

Du könntest dir auch ein dyn. Array anlegen.
Das Array würde dann auf die zusammengehörenden Objekte zeigen,
also eine Art "Array of Record".

[PeterKiers]

ja, aber wie mach ich das?

Peter

[bigg]

was?

[PeterKiers]

jedem Knoten und jeder Seite eine eindeutige ID.

[bigg]

Bei einem PageControl, das aus Seiten besteht (TTabSheet), gibt es die Tag-Eigenschaft.
Diese hätte man pro Seite jeweils einmal.

Bei einem TTreeNode würde sich der StateIndex anbieten.

[PeterKiers]

Was mach ich Falsch?

Code:

procedure TForm1.TreeView1Click(Sender: TObject);  
var  
  MyNode: TTreeNode;  
begin  
  TreeView1.MyNode.Data := TabSheet1;  
end;

Undeclared identifier 'MyNode'.

Peter

[bigg]

moin,

Items sind alle Knoten im TreeView.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Node: TTreeNode;
begin
Node := TreeView1.Items.Add(nil, 'Test');
Node.StateIndex := 1;
end;

[PeterKiers]

Stimmt noch nicht ganz aber es funktioniert.

Code:

procedure TForm1.TreeView1Click(Sender: TObject);
begin
  TreeView1.items[0].StateIndex := 0;
  PageControl1.ActivePageIndex := 0;
end;

Peter

[bigg]

Delphi-Quellcode:

procedure TForm1.TreeView1Click(Sender: TObject);
begin
  TreeView1.items[0].StateIndex := 0;
  PageControl1.Pages[0].Tag := 0;
end;

Suchst du vielleicht das?