Abrir a la vez el mismo form con diferentes datos

[jachguate]

Creo que hasta ahora se han dado respuestas complejas a un asunto que tiene una solución mas fácil (en principio):

Es perfectamente posible tener mas de una instancia de una clase formulario, donde cada una maneje sus propios datos independientemente.

Ejemplo:

Tenemos una forma (TForm1) con un Label1, ComboBox1 y Edit1.

Para no complicar mas el asunto aquí, accederé directamente a los valores de estos controles, aunque lo ideal es publicar propiedades y encapsular estos detalles.

Ahora:

Código Delphi [-]
Procedure TForm2.CrearFormas1;

Var
  Forma1, Forma2 : TForm1;

Begin
  Forma1 := TForm1.Create(Application);
  Forma1.Label1.Caption := 'soy el primer formulario!';
  Forma1.CheckBox1.ItemIndex := 3;
  Forma1.Edit1.Text := 'editame!';
  Forma1.Show;

  Forma2 := TForm1.Create(Application);
  Forma2.Label1.Caption := 'soy el segundo formulario!';
  Forma2.CheckBox1.ItemIndex := 0;
  Forma2.Edit1.Text := 'no se te ocurra editame!';
  Forma2.Show;
end;

Probá el código y me contas.

Saludos.

[Sayuri]

Muchas gracias amigos, me ha funcionado correctamente, ahora mi único problema es que no sé que instruccion he de usar para cerrar cada uno de ellos. muchas gracias

[[Lepe]]

Depende de la opción que estes usando:

- Si usas la opción de jachguate, usa el evento OnClose y añade

Código Delphi [-]
Action := cafree;

Solo queda el problema de que la variable Forma1 y/o Forma2 no apunta a nil, a ver si jachguate nos dice como identificarlo.

Con la solución que propuse yo:

Código Delphi [-]
Procedure  CloseWindow(const indice:integer);
begin
 if Assigned(ListaVentanas) and (ListaVentanas.Count >indice) then
 begin
    TForm2(ListaVentanas.items[indice]).Free;
    ListaVentanas.Delete(i);
    ListaVentanas.Pack;
end;
end;

[jachguate]

Buen día

Empezado por Lepe

Solo queda el problema de que la variable Forma1 y/o Forma2 no apunta a nil, a ver si jachguate nos dice como identificarlo.

Si os fijais en cómo está implementado, las variables Form1 y Form2 que usé son locales al procedimiento CrearFormas1, y jamás se chequea si estas son nil, puesto que no hace falta, ya que en cada llamada se asume que se crearán dos nuevos formularios...

Al final, lo que yo he puesto antes como ejemplo, es solo eso, un ejemplo, que da la idea y demuestra la capacidad de independencia entre dos instancias.

Por último, aclaro que en muchos casos no hace falta mantener una lista independiente de las ventanas creadas, en algunos si... siempre depende de la situación.

Hasta luego.