Heredar un frame.

[adebonis]

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