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

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

ja, aber wie mach ich das?

Peter

was?

jedem Knoten und jeder Seite eine eindeutige ID.

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.

Was mach ich Falsch?

markieren

Code:

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

Undeclared identifier 'MyNode'.

Peter

moin,

Items sind alle Knoten im TreeView.

markieren

Delphi-Quellcode:

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

Stimmt noch nicht ganz aber es funktioniert.

markieren

Code:

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

Peter

markieren

Delphi-Quellcode:

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

Suchst du vielleicht das?