Últimamente he visto que la moda a nivel de diseño de aplicaciones es emular a los exploradores de Internet en relación al uso de pestañas.
He estado sopesando esa posibilidad, aunque debo de admitir (desde mi punto de vista) que lo único que se gana es organización, pues se pierde todas las ventajas de una aplicación MDI por ejemplo el Drag 'N' Drop.
Mis formularios de la aplicación son MDI (
delphi
procedure TFrmMenu.Child21Click(Sender: TObject); var ATabSheet : TTabSheet; begin ATabSheet := TTabSheet.Create(pgNavigation); ATabSheet.PageControl := pgNavigation; FrmChild2 := TFrmChild2.Create(ATabSheet); FrmChild2.Parent := ATabSheet; FrmChild2.Align := alClient; FrmChild2.BorderStyle := bsNone; FrmChild2.Visible := True; ATabSheet.Caption := FrmChild2.Caption; pgNavigation.ActivePage := ATabSheet; //pgNavigation es un PageControl end;
Para que el código anterior funcione debo de cambiarle la propiedad FormStyle del FrmChild2 de fsMDIChild a fsNormal y ahí es donde radica mi problema; ¿Es posible mantener fsMDIChild y que se pueda embeber el formulario en un TabSheet?
Gracias anticipadas.