Servus,
da meine "Tabs" alles Formulare sind, habe ich mit der TabSet eine Reiter erstellt.
Mit dieser Funktion lege ich eine Tab an
Delphi-Quellcode:
procedure AddTabSet(Caption: String; Obj: Tobject);
var
i : integer;
begin
i := TabSet.Tabs.Add(Caption);
TabSet.Tabs.Objects[i] := Obj;
TabSet.TabIndex := i;
end;
...
AddTabSet('Form1', meineForm);
Mit dieser lösche ich wieder das Formular aus dem TabSet
Delphi-Quellcode:
procedure DelTabSet(Obj: Tobject);
var
i : integer;
begin
for i:=TabSet.Tabs.Count-1 downto 0 do
if TabSet.Tabs.Objects[i] = obj then begin
try
TabSet.Tabs.Delete(i);
except
end;
exit;
end;
end;
...
DelTabSet(meineForm);
Allerdings wenn ich nur eine Form habe kommt eine
Exception mit Listenindex bla bla bla.
Wenn ich "TabSet.TabIndex := i;" oben weg lasse kommt kein Fehler.
Try except funktioniert auch solange ich es nicht mit delphi starte. Lass ich es über Delphi starten kommt auch hier immer ein Fehler, was natürlich voll bervig ist.
Habe ich nochwas vergessen?
Mfg