Du kannst anhand der Caption suchen (Tabsheet.Caption = MDIChild.Caption).
Besser: definiere deine eigene TMDIChildTabSheet-Klasse mit
Delphi-Quellcode:
type
TMDIChildTabSheet = class(TTabSheet)
private
FMDIChild: TForm;
public
property MDIChild: TForm read FMDIChild write FMDIChild;
end;
Die Tabsheets erzeugst du dann so:
Delphi-Quellcode:
for c:=0 to MDIChildCount -1 do
if not (csDestroying in MDIChildren[c].ComponentState) then
with tMDIChildTabSheet.Create(Self) do
begin
PageControl := PageControl1;
caption := MDIChildren[c].caption;
MDIChild := MDIChildren[c];
end;
Und dann kannst du es einfach mit
Delphi-Quellcode:
procedure TFrameForm.PageControl1Change(Sender: TObject);
begin
TMDIChildTabSheet(PageControl1.ActivePage).MDIChild.BringToFront;
end;
nach vorne holen.