Referencia a diferentes instancias del mismo Form

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

[[Lepe]]

Creo que estas intentanto programar sin haber diseñado antes la lógica y ahí está el problema, no es un reproche, suele pasar, pero en esos momentos debemos abstraernos de los pequeños problemas pensar globalmente.

La VCL suele mantener un identificador de la ventana que ha de enviar datos, por ejemplo:

Código Delphi [-]
Ventana de clientes:

TCliente = class(TForm);

private
   Reservas : TReservas;
...

Ahora si, cada ventana Clientes tendrá su propia referencia a la ventana Reservas que creará, de forma que puede enviarle datos y cualquier cosa que se le antoje.

Si Una ventana de Clientes, puede tener abiertas varias ventanas de reserva al mismo tiempo, en lugar de usar una variable, usarías un array de TReservas o un TObjectList.

El tema de propiedades es un problema totalmente distinto a lo que hablamos, pero simplifica muchisimas cosas, por ejemplo:

Código Delphi [-]
TReservas = Class(TForm)

private
   FLlamador :TForm;
   procedure SetLlamador (Value:TForm);

public
   property LLamador:TForm read FLlamador write SetLlamador;
end;

procedure TReservas.SetLlamador(Value:TForm);
begin
  if FLlamador <> Value then
  begin
    FLLamador := Value;
    If Fllamador is TForm2 then
       Self.Caption := 'Tform2 me ha llamado'
    else if Fllamador is TForm3 then
       Self.Caption:= 'TForm3 me ha llamado';
  end;
end;

Ahora desde la ventana de Clientes, creamos un TREservas:

Código Delphi [-]
   FReservas := TReservas.Create(Self);
   FReservas.LLamador := Self;

Cuando se ejecuta la última línea, estamos escribiendo (write) en la propiedad LLamador, por tanto, se ejecuta el procedimiento TReservas.SetLLamador que actualiza la variable privada FLLamador y cambia el Caption de la ventana Reservas.

Otro ejemplo del mismo estilo: Tu famoso IBDatsetCAmpo.Value, no te compliques tanto la vida y hazlo así:

Código Delphi [-]
TForm1 = Class(TForm);
private
  function GetValorCAmpo:Variant;
  procedure SetValorCampo(Value:Variant);

public
  property VAlorCampo: Variant read GetValorCampo write SetVAlorCampo;
end;

function TForm1.GetVAlorCampo:Variant;
begin
  if ibdataset1.Active then
     Result := ibdataset1CAmpo.Value;
  else
     Result := unassigned;
end;

procedure TForm1.SetValorCAmpo(Value :Variant);
begin
   if (ibdataset1.Active) and (Value <> unassigned) then
     ibdataset1.Locate('codigo', Value,[]);
  end;
end;

Cuando hagas un " Aux := TForm1.ValorCAmpo" estas leyendo (read) de la propiedad ValorCampo, por tanto se ejecuta la funcion GetValorCampo que devuelve el ibdataset1Campo.Value, y en Aux, tendrás ese valor.

Como ves también controla errores, ya que si no está abierto el IbDataset1, devuelve el valor especial "unassigned" de todo Variant, que indica que no hay valor asignado.

Lo mismo harías en Form3, crear una propiedad llamada ValorCampo, CodigoCliente o como quieras llamarla y el proceso se simplifica y queda más claro:

Código Delphi [-]
  Self.CodigoCliente:= TForm1(Aowner).CodigoCliente;
    Form3 := TForm3.Create(self);
  Form3.CodigoCliente := Self.CodigoCliente;

Todo este rollo permite que al tener una ventana de Cliente y te muevas de cliente, si hay una ventana de reservas abierta al mismo tiempo, se sincronicen los datos automáticamente de las 2 ventanas (esto no lo habías pensado hasta ahora ).

Saludos