Hallo flocke:
meinst Du etwa so:
Delphi-Quellcode:
for c := 0 to MDIChildCount - 1 do
if TMDIChildTabSheet(PageControl1.Pages[c]).MDIChild = ActiveMDIChild then
PageControl1.ActivePageIndex := c;
Im OnActivate des ChildFensters eingebunden funzt es!!
Vielen Dank nochmal!!