tabset mdichild zuordnen

[ch33seburger]

hi

ich hätte gerne ein tabset, das immer einen tab erzeugt, wenn ich ein mdichild erzeuge, und wenn das mdichild geschlossen wird soll auch der tab wieder verschwinden :/ aber ich bekomms nicht hin das der richtige tab geschlossen wird..

gibts eine möglichkeit, dem erzeugten tab das fenster zuzuweisen oder so?

jetz hab ich folgende methode probiert, aber das klappt nicht weil immer wenn ich ein tab lösche wird ja der index wieder zurückgestuft

Delphi-Quellcode:

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
var
i: integer;
s: string;
foo: Tform;
begin
if Form1.MDiChildCount > 0 then begin
foo := (Form1.ActiveMDIChild As Tform);
if foo <> nil then begin 
s:=foo.name;
s:=copy(s,6,length(s)); // ich hab extra den mdichilds den namen child+(die anzahl der childs) gegeben
if form1.TabSet1.Tabs.count<strtoint(s) then begin
form1.TabSet1.Tabs.Delete(0);
end else begin
form1.TabSet1.Tabs.Delete(strtoint(s));
end;
end;
end;

[bigg]

Ordne jedem Fenster und jedem Tab eine gemeinsame, eindeutige ID zu.
Dann musst du nur noch das Fenster bzw. den Reiter suchen und kannst dann darauf zugreifen.

[ch33seburger]

und wie lösche ich es dann?

ginge das nicht auch irgendwie mit nem handle von dem tabset? weil den namen von den tabs weiss ich ja

[bigg]

Mit einem TTabSet dürfe es nicht so einfach gehen. Du benötigst für jeden Tab einen zusätzlichen Wert und wo willst du diesen speichern? Ein einzelner Tab besteht aus einem Index und einer Beschriftung, besitzt jedoch kein Handle, Zeiger und auch keine frei verwendbare Variable. (TTabControl, TTabSet)

[bigg]

Hier mal eine kleine Demo, alles ohne Gewähr.

[BTeam]

Es gibt eine fertige kostenlose Komponente Namens MDITab...denke das ist genau das was du suchst.
Download