Dynamisch Tabs wollen nicht was ich will ??

[sandrocm]

Hi ich habe ein Problem....

Ich erzeuge in einer maindef funktion für ein pagecontrol neue tabs...

procedure tbasis.pagecontroleditieren (art,von,bis:integer;wo:tform;tabs:tspagecontrol);
var newsheet:tstabsheet;
i:integer;

.
.
.

if art =6 then
begin
newsheet:=tstabsheet.Create(tabs);
newsheet.Name:='sTabSheet'+inttostr(von);
newsheet.caption:='sTabSheet'+inttostr(von);
newsheet.Parent := tabs;
newsheet.Tag := 0;
newsheet.Visible := true;
newsheet.PageControl := tabs;
end;
.
.
end;

Die Funktion benutze ich beim öffnen einer Form um Dynamisch neue tabs zu erstellen, wenn der User neue Felder in der Datenbank hinzugefügt hat.

sname:=datasys.Feldfinden(1,2,'UNTERSUCHUNGENname' ,'Untersuchungen','UNTERSUCHUNGENNR',iarr[i]);
if (spagecontrol1.PageCount <= i) then datasys.pagecontroleditieren (6,i+1,20,frmanmeldungen,spagecontrol1);
try (Findcomponent('sTabSheet'+IntToStr(i)) as tsTabSheet).Visible:=true; except end;
try (Findcomponent('sTabSheet'+IntToStr(i)) as tsTabSheet).Caption:=sname; except end;


Mein Problem ist, das in der create Funktion der Form wenn ich es öffne, dann findet er die neu erstellten Tabs nicht???? Aber sie wwerden in der Form angezeigt????


Kann mir jemand weiter helfen


Danke im Vorraus

Markus

[Nicodius]

es heisst TTabsheet und nicht tstabsheet ;)


grüße Nico

[Nicodius]

Delphi-Quellcode:

  
  newsheet := ttabsheet.Create(tabs);
  newsheet.Name := 'ts_' + IntToStr(nr);
  newsheet.PageControl := tabs;
  newsheet.Caption := 'Unbekannt' + IntToStr(nr);

so gehts ;)