Referencia a diferentes instancias del mismo Form

[[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.

[roman]

Empezado por gluglu

Qué significa pasar información mediante propiedades ?

Por ejemplo:

Código Delphi [-]
type
  TForm3 = class(TForm)
  private
    FParam: Integer;
  public
    property Param: Integer read FParam write FParam;
  end;

...

// al construir el formulario

Form3 := TForm3.Create(Application);
Form3.Param := 84;

Empezado por gluglu

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.

En realidad ya no sé a qué te refieres porque ahora que veo con más detalle veo que lo que tu llamas constructor quién sabe qué sea. Parece que estás confundiendo el constructor Create con el evento OnCreate.

// Saludos

[[gluglu]]

Gracias una vez más a toda vuestra ayuda ... pero tengo una última duda (espero que la última en referencia a este tema ... ) :

Tengo un Form1, con un IBDataSet1.

Form1 crea a Form2, y Form2 crea a su vez a Form3. Como accedo desde Form3 al IBDataSet1 del Form1 ? Teniendo en cuenta, según el tema de este hilo, de que puede haber varias instancias de Form1.

De momento lo estoy haciendo así (según lo que me estais indicando en respuestas anteriores de este hilo :

Código Delphi [-]
Procedure TForm1.ButtonClick(Sender: TObject);
begin
  Form2 := TForm2.Create(Self);
end;
 

Procedure TForm2.ButtonClick(Sender: TObject);
var
  Aux : Integer;
begin
  // Ejemplo para acceder desde Form2 a IBDataSet1 contenido en la
  // instancia concreta Form1 que ha creado a Form2
  Aux := TForm1(Owner).IBDataSet1CAMPO1.Value;
  // Creo un nuevo Form3 pásandole como parámetro no Self, sino lo
  // siguiente :
  Form3 := TForm3.Create(TForm1(Owner));
end;

 
Procedure TForm3.ButtonClick(Sender: TObject);
var
  Aux : Integer;
begin
  // Aquí quiero acceder al IBDataSet1 contenido en Form1
  Aux := TForm1(Owner).IBDataSet1CAMPO1.Value
end;

Me temo que esta no sea la manera correcta. Y por eso os pido vuestro consejo. Gracias y saludos.

[DarKraZY]

La opción correcta sería como te comentó Roman, mediante propiedades:

Código Delphi [-]
TForm1 = class(TForm);
{...}
public
  DataSetForm: TIBDataSet read FDataSetForm write FDataSetForm;
end;


Procedure TForm1.ButtonClick(Sender: TObject);
begin
  Form2 := TForm2.Create(Self);
  Form2.DataSetForm := IBDataSet1;
end;
 

Procedure TForm2.ButtonClick(Sender: TObject);
var
  Aux : Integer;
begin
  Aux := DataSetForm.FieldByName('CAMPO1').Value;
  // Creo un nuevo Form3 pásandole como parámetro no Self, sino lo
  // siguiente :
  Form3 := TForm3.Create(Owner); // esta conversión de TForm1(Owner) creo que no es necesaria.
  Form3.DataSetForm := DataSetForm;
end;

 
Procedure TForm3.ButtonClick(Sender: TObject);
var
  Aux : Integer;
begin
  // Aquí quiero acceder al IBDataSet1 contenido en Form1
  Aux := DataSetForm.FieldByName('CAMPO1').Value;
end;

Si sólo vas a necesitar un campo de la tabla sería mejor pasar sólo el valor del campo y no el dataset.

saludos!!