Hola.
Casi.
Hago esto: Creo un tabsheet nuevo, Ya tengo creado el Frame y asigno el parent al Tabsheet.
Pero al crear un nuevo tabsheet le tengo que asignar el mismo Frame, y me da el mensaje de error de que ya existe un frame con este nombre.
Utilizo el siguiente procedimiento para crearlos:
Código Delphi
[-]
procedure CreaAsunto(QueAsunto: Integer; Pagina: String; Finalizado: Boolean);
var
Aux: TRzTabSheet;
Ventan: TFrame;
i: Integer;
Finali: String;
begin
for i := fPral.pagPrincipal.PageCount - 1 downto 0 do begin
if fPral.pagPrincipal.Pages[i].Tag = QueAsunto then begin
fPral.pagPrincipal.ActivePageIndex := i;
Exit;
end;
end;
if Finalizado then Finali := '9' else Finali := '0';
Aux := TRzTabSheet.Create(Nil);
Aux.Name := 'tabAsunto'+ IntToStr(QueAsunto);
Aux.PageControl := fPral.pagPrincipal;
Aux.Caption := Pagina+ Finali+ NombreAsunto(QueAsunto);
Aux.Tag := QueAsunto;
fPral.pagPrincipal.ActivePageIndex := fPral.pagPrincipal.PageCount- 1;
Ventan := TfrAsunto.Create(Application);
Ventan.Parent := Aux;
end;
Gracias.
Adolfo Bonis Mora
Barcelona