Eliminar un tabsheet de un Page Control

[apicito]

Creo un nuevo tabsheet en un page control y en el creo un formulario poniendole como parent este tabsheet. El formulario lo muestro con Show. Cuando cierro el formulario, como puedo eliminar el tabsheet en el que estaba contenido?

[roman]

Usa una variable en el formulario que contiene al PageControl para guardar una referencia a la ficha:

TForm1 = class
private
  Tab: TTabSheet;
end;

Cuando crees la ficha hazlo así:

Tab := TabSheet.Create(nil);
Tab.PageControl := PageControl1;

y para eliminar la ficha usas:

Tab.Free

// Saludos

[apicito]

mi problema lo tengo por que creo un Form2 al que le asigno como parent ese tabsheet y como lo muestro con show (no como show modal) no sé cuando es eliminado form2 y no sé cuando tengo que hacer:

Tab.Free

[Ruben_Cu]

Hola apicito, despues de crear tu tabsheet (como te explicó Román) al cerrar el form2 usa el siguiente código:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
        Action := caNone;
        form1.Tab.Free;
end;

Por supuesto como Tab es el contenedor de form2 al liberarse él tambien se destruye la form2.
Saludos

[apicito]

La solución que me propone Ruben_Cu cierra la última instancia de Tab que se ha creado, por ello lo he intentado con un array de tabSheets de esta forma.

FORM1 
  private
    Contador : Integer;
  public
    Tab : array of TTabSheet;
procedure TForm1.Button1Click(Sender: TObject);
var Formula2:TForm2;
Begin
  inc(Contador);
  Tab[Contador]:=TTabSheet.Create(nil);
  with Tab[Contador] do
    begin
      PageControl:=PageControl1;
      Name:='Pagina'+trim(inttostr(Contador));
      Caption:=Tab[Contador].Name;
    end;
  Formula2:=TForm2.Create(Self);
  with Formula2 do
    begin
      Parent:=Tab[Contador];
      Caption:='Formulario'+trim(inttostr(Contador));
      Numero:=Contador;
      Show;
    end;
end;
FORM2 
  public
    Numero:integer;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caNone;
  Form1.Tab[Numero].free;
end;

Pero me da un error de violación de acceso en: Tab[Contador]:=TTabSheet.Create(nil);

[Ruben_Cu]

Hola apicito, para evitar el error debes declararle un tamaño al array por ejemplo:

Tab : array[1..5] of TTabSheet;

De esta manera podrás colocar hasta 6 tabsheet con el form2 contenida, debes controlar el contador para evitar errores.
No entiendo bien porque quieres el mismo form2 repetido en todos los tabsheet ...tu sabrás.
Puedes eliminar el uso de la función TRIM que en este caso no hace nada.
Saludos y suerte

[apicito]

Gracias, funcionó correctamente.

No entiendo bien porque quieres el mismo form2 repetido en todos los tabsheet ...tu sabrás.

Es un programa para gestionar expedientes y quiero que el usuarios pueda tener varios expedientes abriertos al mismo tiempo.
Un saludo.

[__cadetill]

Posteado originalmente por Ruben_Cu
De esta manera podrás colocar hasta 6 tabsheet con el form2 contenida

Bueno, yo diría más bien 5

Otra manera sería utilizar arrays dinámicos y inicializarlos con SetLength (la ayuda sobre los arrays dinámicos que trae una buena explicación).

[apicito]

Alguien puede decirme porque si, en vez de utilizar el array de tabs ya creados, utilizo el sistema de crear los tabs cuando abro el form2 con el metodo:

procedure TForm1.Boton1Click;
var Form2:TForm2;
    PaxNum:Integer;
Begin
  with TTabSheet.Create(self) do
    begin
      PageControl:=PageControl1;
      Name:='Pagina'+trim(inttostr(Contador));
      Caption:='Sesiones';
      PaxNum:=PageIndex;
    end;
  inc(Contador);
  Form2:=TForm2.Create(Self);
  with Form2 do
    begin
      Parent:=PageControl1.Pages[PaxNum];
      Show;
    end;
end;

me da error de desbordamiento de pila y sin embargo:

procedure Form1.Boton1Click;
var Form2:TForm2;
    PaxNum:Integer;
    Pax:TtabSheet;
Begin
  with TTabSheet.Create(self) do
    begin
      PageControl:=PageControl1;
      Name:='Pagina'+trim(inttostr(Contador));
      Caption:='Sesiones';
      PaxNum:=PageIndex;
      Pax:=PageControl1.Pages[PaxNum];
    end;
  inc(Contador);
  Form2:=TForm2.Create(Self);
  with Form2 do
    begin
      Parent:=Pax;
      Show;
    end;
end;

funciona correctamente?

[Ruben_Cu]

Posteado originalmente por cadetill
Bueno, yo diría más bien 5

Estimado amigo, prueba colocar las lineas del programa incluyendo el array y verás que logras 6 tabsheet con la form como hija, ya la séptima form no reconoce al parent, curioso eh?? Cuando comencé a redactar el mensaje escribí 5 pero al probarlo se comportó con 6 de ahí el número.
Saludos

[roman]

Posteado originalmente por Ruben_Cu
...prueba colocar las lineas del programa incluyendo el array y verás que logras 6 tabsheet con la form como hija, ya la séptima form no reconoce al parent, curioso eh?? Cuando comencé a redactar el mensaje escribí 5 pero al probarlo se comportó con 6 de ahí el número.

Puede ser, pero es cuestión de suerte. En el momento más inesperado e inoportuno saldrá a relucir el error con un estimulante "Access Violation"

// Saludos

[__cadetill]

Posteado originalmente por roman
En el momento más inesperado e inoportuno saldrá a relucir el error con un estimulante "Access Violation"

Tanto como "estimulante", no se no se, a mi estos errores son los que más quebraderos de cabeza me dan

Respecto a las lineas de código que envía el amigo apicito, pues la verdad no entiendo porque un código funciona y el otro no

[Ruben_Cu]

Posteado originalmente por roman
Puede ser, pero es cuestión de suerte. En el momento más inesperado e inoportuno saldrá a relucir el error con un estimulante "Access Violation"

Si ya lo decía en mi post que pensé que eran 5 pero probé varias veces y siempre colocó seís después del post de cadetill volví a rehacer el programa y continuó dando seís sin el estimulante error, y si algo he aprendido es que esto o funciona o no funciona. Explicación no tengo, no se uds.
Saludos

[roman]

Posteado originalmente por Ruben_Cu
Si ya lo decía en mi post que pensé que eran 5 pero probé varias veces y siempre colocó seís después del post de cadetill volví a rehacer el programa y continuó dando seís sin el estimulante error, y si algo he aprendido es que esto o funciona o no funciona. Explicación no tengo, no se uds.
Saludos

Yo creo que la lección no es "esto funciona o no funciona", sino "esto no está bien aunque en ocasiones no de problemas"

Haciendo unas pruebas me dió lo siguiente:

• Si el arreglo se declara como variable de la unidad no se genera ningún error
  
• Si el arreglo se declara como campo del formulario no se genera error al ejecutarse pero al cerrar la aplicación se generan de esos mensjaes "Runtime Error" que se despliegan cuando ya se ha cerrado el mecanismo de excepciones.
  
• Si el arreglo se declara como variable local a un procedimiento se genera un "Access violation"

Y, desde luego, si habilitamos la opción "Range check error" del compilador entonces se genera un error durante la ejecución antes de acceder a parte prohibidas de la memoria.

El punto aquí es (en mi opinión):


Evítense prácticas incorrectas de programación aún cuando no parezca haber errores.


// Saludos

[Ruben_Cu]

Posteado originalmente por roman
Yo creo que la lección no es "esto funciona o no funciona", sino "esto no está bien aunque en ocasiones no de problemas"

¿Como es posible que en ocasiones el compilador lo ve bien y en otras no?

Posteado originalmente por roman

Si el arreglo se declara como variable de la unidad no se genera ningún error

Entonces estamos ante la ruptura de un paradigma o simplemente ante un 'X files'

[roman]

Posteado originalmente por Ruben_Cu
¿Como es posible que en ocasiones el compilador lo ve bien y en otras no?

Supongo que depende del segmento de memoria en donde se coloque la variable.

Voy a especular porque yo de esto no sé nada:

[especular]
Dependiendo de donde se declare la variable ésta se colocará en distintos segmentos de memoria. Algunas se colocan en el segmento de código (CODE segment) de manera que al escribir en una dirección que no nos corresponde se genera el "Access Violation" al intentar escribir sobre la parte de memoria donde se pone el código cuando el programa se carga en memoria.

En otras ocasiones se colocara en un segmento especial para datos (DATA segment) y, si no hay nada contiguo y se trata de un área que el manejador de memoria de Delphi ya reservó pues no pasará nada grave.
[/especular]

Aquí te pongo una prueba rápida que hice:

Inmediatamente después de la declaración del formulario declara lo siguiente:

var
  Form1: TForm1;
  Fichas: array[1..5] of Integer;
  Prueba: Integer;

En algún lugar ejecuta la instrucción:

I := 6;
Fichas[i] := 84;
Caption := IntToStr(Prueba);

¿Qué crees que apareció en la barra de título del formulario?

84

Suena lógico ¿no?

Ficha[6] accedió a la parte de la memoria inmediatamente después del arreglo Fichas. Y ahí estaba la variable Prueba.

No causa error pues es sólo el valor de una variable que se afecta pero desde luego ¡está mal!

No es que el compilador a veces marque errores y a veces no. Es que depende de muchas circunstancias, de qué código tengamos.

El ejemplo anterior muestra que no veremos ningún error pero cuando nuestro programa muestre cosas raras por la alteración del valor de la variable Prueba, pasaremos ratos difícilies (¿estimulantes?) intentando encontrar la falla.

Por eso, repito, debemos ajustarnos a la programación correcta pues no tiene caso intentar averiguar de qué manera está funcionando el compilador.

// Saludos