Hi nochmal.
Zitat von
Thomas83:
Zitat von
_BlackDragon_:
Hi.
Bist du sicher das der Fehler daher kommt?
Jup bin mir sicher weil wenn ich die Zeile weglasse und keinen Index auswähle bekommen ich keinen Fehler. Denke mal wenn der Index gesetzt ist versucht er den Index neu zu zuweisen, da aber kein Tab mehr da ist kommt ein Fehler
Dann gehe ich jetzt mal davon aus, dass du die Zeile in der DelTabSet-Routine stehen hattest und diese Zeile meintest. Denn so wie der Quelltext (AddTabSet) oben steht, funzt es.
Zitat von
Thomas83:
Zitat von
_BlackDragon_:
1. Verwende doch direkt AddObject(...). Da kannst du dir die zweite Zeile sparen.
Das habe ich schon versucht, nur wird dann kein Text angezeigt, keine Ahnung wieso.
Da siehst du einen Grund mehr auf die oben genannten Komponenten umzusteigen.
Zitat von
Thomas83:
Zitat von
_BlackDragon_:
2. Wenn du die Auswahl hast, verwende lieber TTabControl oder TPageControl, denn TTabSet ist nur aus Kompatibilitätsgründen noch vorhanden und absolut veraltet.
Das kann ich leider nicht habe alles Formen die als Parent ein Panel haben.
Hmmm außer ich erstelle für jedes Form ein Tab, das müste eigentlich auch gehen.
Das funktioniert auf jeden Fall. Musst halt nur das Parent des Forms zuweisen, was z.B. im Konstruktor
geht ->
TForm.CreateParented(ParentWindow: HWND)
Gruß
BlackDragon