TabSheet endemoniado ¿?

[antonio_am]

Vamos a ver si alguien me puede ayudar. He visto el hilo siguiente, que además es exactamente lo que pretendo hacer:

http://www.clubdelphi.com/foros/show...light=TabSheet

Yo pongo todo el siguiente código:

en fMain 

private
   Contador : Integer;
 public
    Tab : array[1..5] of TTabSheet;

procedure TfMain.Button2Click(Sender: TObject);
var
 CL:TfClientes;
begin
 if PageControl1.PageCount<=5 then begin
  Contador:=PageControl1.PageCount;
  inc(Contador);
  Tab[Contador]:=TTabSheet.Create(nil);
  with Tab[Contador] do begin
   PageControl:=PageControl1;
   Name:='tsCL'+IntToStr(Contador);
   Caption:='Clientes '+inttostr(pageindex);
  end;
  CL:=TfClientes.Create(Self);
  with CL do begin
   Parent:=Tab[Contador];
   Numero:=Contador;
   Show;
  end;
 end;
end;

y en fClientes 

public
    Numero:integer;

procedure TfClientes.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action:=caNone;
 fMain.Tab[Numero].Free;
end;

pero me produce el error 'Access violation' de vez en cuando, exactamente en la intrucción donde se destruye el TabSheet. Ya no se que más probar. Hay alguna manera de conseguir lo mismo pero con otro código?. Gracias por vuestra ayuda y un saludo.

[jachguate]

Has verificado que el valor de número sea correcto?

Te recomiendo que intentes mejor hacer mejor un Self.Parent.Free? No tiene sentido almacenar el contador del tab, si ya tenes un apuntador a él en el parent, no?

hasta luego.

[roman]

Si PageControl1.PageCount es igual a 5 la condición

if PageControl1.PageCount <= 5 se cumple pero al incrementar Contador estás accediendo a Tab[6] que está fuera de rango y al acceder a las propiedades de Tab[6] obtienes la violación de acceso.

// Saludos

[antonio_am]

jachguate dice:

Te recomiendo que intentes mejor hacer mejor un Self.Parent.Free? No tiene sentido almacenar el contador del tab, si ya tenes un apuntador a él en el parent, no?

Lo he probado y me pasa igual, se produce el error al destruir el Tabsheet, pero lo más curioso es que no es siempre, se produce aleatoriamente. Sobre guardar el contador en el Tab[] es para borrar el tabsheet desde donde cierro el form2 y no el ultimo creado.

A roman he de decirle que he cambiado la condicion a:

if PageControl1.PageCount<4 then begin

y sigo igual. Por favor realiza un ejemplo con estos datos y comprobar si os ocurre lo que a mí

Un saludo y agradecido por vuestra ayuda.

[jachguate]

Precisamente te digo que no es necesario guardarlo, porque podes mandarlo a liberar con el puntero que tenes en la propiedad parent. Mirá mi post anterior.

Hasta luego