Mit TreeView Pages vom PageControl wechseln

[Ykcim]

Guten Morgen Zusammen,

ich habe in meinem Programm ein TreeView, der mit Daten aus einer Datenbank heraus erstellt wird. Auf dem Form daneben habe ich ein PageControl angeorndet, dem ich beim Starten des Programmes soviele TabSheets mit StringGrids erzeuge, wie ich Werte in meinem TreeView habe. Bis hierhin klappt alles wunderbar.

Jetzt möchte ich zwischen den TabSheets wechseln, indem ich einen Wert (Node) in dem Treeview anwähle. Die TabSheets haben den gleichen Name wie die Werte im TreeView (Text vom Node)...

Das habe ich versucht:

Delphi-Quellcode:

procedure TPlanungMB.FertigungsbereichMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var Node : TTreeNode;
begin
  if Maschinen.FindComponent(Node.Text)<>nil then
    begin
      Maschinen.ActivePage.Name:=Node.Text;
    end;
end;

Maschinen ist das PageControl, auf welchem die TabSheets liegen...
Das ist das erste Mal, dass ich mich an dynamisch erzeugten Komponenten versuche und ich hoffe, dass Ihr mir helfen könnt...

Vielen Dank

Ykcim