Referencia a diferentes instancias del mismo Form

[[gluglu]]

Hola de nuevo a todos !

Como hago referencia a diferentes instancias de un mismo form en, por ejemplo, forms modales que han sido creados por cada una de esas instancias ?

Me explico :

Código Delphi [-]
TMainForm.CrearNuevoMDI;
var
  A1, A2 : TForm2;
begin
  A1 := TForm2.Create(Self);
  A1.Show;
  ...
  A2 := TForm2.Create(Self);
  A2.Show;
end;

Por otro lado

Código Delphi [-]
TForm2.CrearNuevoModal;
  Form3 := TForm3.Create;
  Form3.ShowModal;

Ahora, en Form3, como me refiero a cada una de las instancias creadas sin tener que utilizar A1 o A2 como identificador ?

Lo que quiero es creer innumerables A..., dependiendo de cuantas ventanas abra el usuario, y poder referirme a cada una de ellas por separado en Form3.

Formulada de otra manera la pregunta sería, como le paso a Form3 la instancia de Form2 que lo está llamando ?

Saludos

[Neftali [Germán.Estévez]]

Empezado por gluglu

...como le paso a Form3 la instancia de Form2 que lo está llamando ?

Puedes utilizar el parámetro Owner del Create (TForm)

Código Delphi [-]
TForm2.CrearNuevoModal;
  Form3 := TForm3.Create(Self);
  Form3.ShowModal;

Dentro de Form3, Accedes al Owner y tendrás en este caso Form2.

Código Delphi [-]
  // comprobar (en Form3)...
  if (Self.Owner is TForm2) then begin
    TForm2(Owner).Caption := 'aaaa';
  end;

  // o acceder de forma genérica sin utilizar TForm2
  // comprobar (en Form3)...
  if (Self.Owner is TForm) then begin
    TForm(Owner).Caption := 'aaaa';
  end;

No se si es a esto a lo que te refieres...

[[gluglu]]

Gracias Neftalí !

Si, era precisamente lo que necesitaba. Tengo de momento cierto desastre de ideas en mi cabeza y no he caido en el 'Owner' !

Voy a probar ...

[[gluglu]]

Duda adicional !

Si además de querer pasarle el 'Owner', quiero pasar un parámetro al form3, y para ello lo que utilizo es un 'constructor', como lo hago ?

Código Delphi [-]
TForm2.CrearNuevoModal;
  Form3 := TForm3.Create(Self);
  Form3.ShowModal;
 
 
TForm3 = class(TForm)
  ...
  public
    { Public declarations }
    constructor Create2(Sender: TObject; Param_1: Integer);
  ...
 
constructor TForm3.Create2(Sender: TObject; Param_1: Integer);
begin
  Aux_Modus := Param_1;
  inherited Create(Sender);  // Aquí me dá error !
end;

Gracias por vuestra ayuda

[roman]

Como Create2 no está redefiniendo de hecho a Create, sino sólo utilizándolo, imagino, aunque no lo he probado, que basta que quites la directiva inherited. Sin embargo, pienso que es más adecuado que pases información al objeto via propiedades y no por parámetros.

// Saludos

[[gluglu]]

Qué significa pasar información mediante propiedades ?

Por ejemplo alguna propiedad Tag ? O a qué te refieres si no ?

Creo que la opción que he descrito como un constructor Create2 se ha discutido bastantes veces en este foro. Lo que pasa es que en este caso particular me está fallando.

Tampoco lo he probado ahora mismo, pero creo que si quitas el inherited, te dá un error diciendo que necesitas llamar a un proceso heredado precisamente. El otro día hice algo así por otra causa y me saltó dicho error.