Mit TreeView Pages vom PageControl wechseln

[Ykcim]

Hallo DeddyH,

vielen Dank für die superschnelle Antwort!!!

Ich habe es ausprobiert, aber es scheint so, als würde Sheet := Maschinen.FindComponent(Node.Text) as TTabSheet; die Komponente nicht finden.

Ich bin dann hingegangen und habe mir in dem StringGrid, welches auf jedem TabSheet erzeugt wird, immer den Namen des TabSheet ausgeben lassen - der stimmt. Ich gehe also davon aus, dass die Komponente mit dem richtigen Namen an der richtigen Stelle ist, aber aus iegendeinem Grund scheint sie nicht gefunden zu werden.
Assigned(Sheet) wird mit FALSE ausgegeben. Hast Du da eine Idee?

Hier der Code, mit dem die Komponenten erstellt werden...

Delphi-Quellcode:

  for I := 0 to Length(Rows1[0]) - 1 do
    begin
      tabsheet:= TTabSheet.Create(self);
      tabsheet.PageControl:=Main.PlanungMB1.Maschinen;
      TabSheet.Name:=Rows1[0,I];
      //TabSheet.TabVisible:=false;
      Main.PlanungMB1.Maschinen.ActivePageIndex:=I;
      DatenGrid:=TStringGrid.Create(Main.PlanungMB1.Maschinen.ActivePage);
      DatenGrid.Parent:=Main.PlanungMB1.Maschinen.ActivePage;
      DatenGrid.Name:='Daten'+Rows1[0,I];
      DatenGrid.Align:=ALClient;
      DatenGrid.Visible:=true;
      DatenGrid.ColCount:=5;
      DatenGrid.RowCount:=5;
      DatenGrid.FixedCols:=0;
      DatenGrid.Cells[0,1]:=TabSheet.Name;
    end;
  Main.PlanungMB1.Maschinen.ActivePageIndex:=0;
  PlanungMBUnit.TreeviewRefresh(Main.PlanungMB1.Fertigungsbereich);

Vielen Dank

Ykcim