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.

[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

[[gluglu]]

Ufffff !!!!

Vaya vaya, Curso de OOP acelerado el que me estais dando entre todos !!

Ante todo expresaros mis más sinceras gracias a todos. Está claro que todos los días se aprende algo nuevo.

Bueno, intentaré dar información adicional y expresar mi punto de vista a todo esto.

Lepe : La lógica es precisamente lo que tengo clarísimo. La estructura del programa y de la inmensa mayoría de las bases de datos, viene de una aplicación muy muy completa que tengo en Clipper (sí, Clipper ), y lo que se trata ahora es de hacer un nuevo programa en Delphi, empezando de nuevo desde la primera línea de programación hasta la última, pero con la misma lógica y funcionalidad.

Debo de reconocer que la estructura de una reserva en mi programa es muy compleja internamente, con muchísima 'normalización' en la base de datos y tablas subyacentes a cada reserva.

No concibo el programa sin que el usuario pueda abrir todas las reservas que quiera y que su sistema (memoria, etc) le permita. Para ello ya tengo claro que utilizaré un 'array de reservas' en forma de array de TObject o algo parecido que además he visto que Lepe ha participado en muchos hilos que hablan de estos temas.

Cada Form correspondiente a una Reserva, se compone de 5 frames. Cada Frame tiene que acceder a aprox. 50-60 valores o datos de la reserva comunes. Por ello veo lógico situar el IBDataSet que contiene todos estos datos comunes en el Form principal de la reserva. A su vez cada frame tiene sus propios DataSet's que sólo se van a manejar en cada frame particular. El más complejo de los frames llega a tener unos 20 dataset's 'particulares'.

Utilizo Frames, quiero explicarlo, porque me voy moviendo entre uno y otro frame de manera ágil. Pierdo un poco tiempo al inicio de crear la reserva completa en crear todos los frames juntos, pero después es rápido pasar de uno a otro. Podría perfectamente haber utilizado un TPageControl. Pero me decidí por utilizar Frames, tanto por presenetación en pantalla como por manejabilidad en tiempo de diseño. No tengo por supuesto la necesidad de reutilizar ninguno de esos frames en ninguna otra parte del programa en otros forms.

Tal y como explicaba en otro hilo, además cada reserva, en concreto cada uno de los frames, va a poder abrir diferentes ventanas modales que corresponden a diferentes opciones para cada reserva. Mientras el usuario tenga una ventana modal abierta correspondiente a algún dato concreto de una reserva determinada, no le permito acceder a otra reserva diferente. Por ello lo de abrirlo en modo modal.

Por ejemplo, para concretar un poco, una reserva Nº 1 muestra todos los datos comunes, p.ej. Nombre Cliente, Fecha Llegada, Nº Noches, Fecha Salida, Agencia contratante, Nº Tarifa Precios, etc ....

Pulsamos botón de Depósitos entregados. Se abre Ventana Modal de Depósitos de esa Rva. Nº 1. En ella se podrán añadir, modificar, anular depósitos correspondientes a la Rva Nº 1. Mientras estemos con la ventana modal abierta de depósitos, no se permite ninguna otra operación que no sea de depósitos. Pero cada vez que añado un depósito, necesito añadir a la tabla de la base de datos correspondientes a depósitos un registro que contenga además el número de reserva, nº agencia y forma de pago predeterminada que son datos contenidos en la tabla común de la reserva y cuyo DataSet se encuentra en el formulario principal.

Ya me estoy aclarando ( ) perfectamente respecto al tema de las propiedades que me explicais.

Claro, lógico, necesito saber en el Form de depósitos, qué Nº de reserva lo ha llamado para actuar consecuentemente.

Para complicar un poco más la lógica. Si abro la ventana modal de tarjetas de crédito para mostrar las tarjetas de garantía para esa reserva, pues desde ahí también permito efectuar directamente un depósito. Entonces no sólo la reserva principal desde su frame correspondiente va a llamar al DataSet correspondiente para crear un nuevo depósito, sino que en este caso el depósito se realiza directamente desde la pantalla de tarjetas de crédito !

Espero no estar liando demasiado a quien esté leyendo todo este rollo mío ! .

Por eso necesito esa interacción entre diferentes ventanas, forms, frames y DataSet's. Todos referidos a la reserva. Y claro, sabiendo en cada momento cual de las reservas llama a cada uno. Ya que puedo tener muchas reservas abiertas en cada momento.

....

[[gluglu]]

... perdón por el rollo anterior. Me concentro ahora en vuestros comentarios.

DarKraZY : He entendido perfectamente. Dos pequeños comentarios a tu explicación. Falta 'Property' en el código expuesto y especificar que la 'Property' debe de ser definida tanto en Form2 como en Form3. En ningun caso esa propiedad se refiere al Form1. Sólo quería aclararlo para otros foristas.

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

Código Delphi [-]
TForm2 = class(TForm);
...
private
  FDataSetForm : TIBDataSet;
public
  property DataSetForm: TIBDataSet read FDataSetForm write FDataSetForm;
end;

Procedure TForm2.ButtonClick(Sender: TObject);
var
  Aux : Integer;
begin
  Aux := DataSetForm.FieldByName('CAMPO1').Value;
  Form3 := TForm3.Create(Self);
  Form3.DataSetForm := DataSetForm;
end;

Código Delphi [-]
TForm3 = class(TForm);
...
private
  FDataSetForm : TIBDataSet;
public
  property DataSetForm: TIBDataSet read FDataSetForm write FDataSetForm;
end;
 
Procedure TForm3.ButtonClick(Sender: TObject);
var
  Aux : Integer;
begin
  // Aquí quiero acceder al IBDataSet1 contenido en Form1
  Aux := DataSetForm.FieldByName('CAMPO1').Value;
end;

Román : Pasar parámetros por propiedades. También lo entendí ya perfectamente. Quiero añadir un pequeño detalle que me he dado cuenta al implementarlo:

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

Al construir el formulario en p.ej. Form2

Código Delphi [-]
procedure TForm2.ButtonClick(Sender: TObject);
  Form3 := TForm3.Create(Application);
  Form3.Param := 84;
end;

Me he dado cuenta, está claro, que durante la creación de Form3, el parámetro no está disponible. Por tanto tengo que reubicar todo aquello que dependa de ese parámetro a otro evento, por ejemplo el OnActivate del Form3.

Por último. Otro pequeño detalle referente a los campos de un IBDataSet cualquiera.

Al 'pasarlo' a otros formularios mediante la opción de 'property' siempre tengo que acceder a los valores utilizando FieldByName('CAMPO'). Me he dado cuenta en general en mi programa que al permitir utilizar valores null, si accedo al valor mediante IBDataSet1CAMPO.Value, si el campo es null me devuelve 0, tanto si es 0 como si es null. (Personalmente me viene bien que sea así, pero que dentro de la BD diferencie entre 0 y null).

En cambio si accedo por IBDataSet1.FieldByName('CAMPO').Value y preguntar por su valor, Delphi (2006 VCL.NET en mi caso) diferencia entre 0 y null y en un If tengo que preguntar ambas opciones:

Código Delphi [-]
if (IBDataSet1.FieldByName('CAMPO').IsNull) or
    (IBDataSet1.FIeldByName('CAMPO').Value = 0) then ...

Una vez más gracias a todos.

Estoy en ello ... como dice por ahí algún avatar !

[[Lepe]]

Empezado por guglu

Me he dado cuenta, está claro, que durante la creación de Form3, el parámetro no está disponible. Por tanto tengo que reubicar todo aquello que dependa de ese parámetro a otro evento, por ejemplo el OnActivate del Form3.

¿a qué te refieres?

En el evento TForm3.FormCreate si está disponible, de hecho, el evento OnCreate llega después de crear todos los componentes / propiedades de tu forma (a menos que tengas OldCreateOrder a True).

Si necesitas que al ejecutar esta línea:

Código Delphi [-]
Form3.Param := 84;

Se ejecute codigo adicional, necesitas el SetValorCampo.

La modificación de una propiedad, por ejemplo Param, debe ser autónoma y no depender de otros eventos (OnActivate). Dentro de SetValorCampo puedes hacer todo lo que necesites para sincronizar todos los controles del Form.


Saludos

[[gluglu]]

Me refiero a que en el momento de crear el Form, no está disponible el valor 84 del parámetro que tengo que pasar.

Hablo del valor concreto, en este caso del ejemplo, 84.

En el OnCreate inicializo varios campos y hago varias operaciones que precisan del valor 84.

El valor 84 se asigna justo después de haber terminado el OnCreate.

Mi caso concreto. Al crear en este caso por ejemplo mi Form BookingMain, necesito saber el número de reserva al que se refiere. (Supongamos : 84). En el OnCreate de TBookingMain hago varias operaciones que necesitan del valor 84.

Código Delphi [-]
TMain.ButtonClick(Sender: TObject)
  BookingMain := TBookingMain.Create(Self);
  BookingMain.Param := 84;
  BookingMain.Show;

Código Delphi [-]
TBookingMain.Create(Sender: TObject);
begin
  ....
  // Aquí no está disponible el valor 84 de Param
  ...
end;
 
TBookingMain.Activate(Sender: TObject);
begin
  ...
  // Aquí si está disponible el valor 84 de Param
  ...
end;

No niego que a lo mejor quedaría más claro llamar a un proceso 'Initialize' :

Código Delphi [-]
TMain.ButtonClick(Sender: TObject)
  BookingMain := TBookingMain.Create(Self);
  BookingMain.Param := 84;
  BookingMain.Initialize(nil);
  BookingMain.Show;

Código Delphi [-]
TBookingMain.Initialize(Sender: TObject);
begin
  ....
  // Realizar aquí todas las operaciones de Inicialización de la Rva. 84
  // al estar disponible aquí el valor Param = 84
  ...
end;

[DarKraZY]

Hola gluglu!

Por todo lo que comentas en el último post acerca del parametro (supongamos 84) es mejor la idea de Lepe.

Ya que si todo lo que dependa de ese valor "deberías" hacerlo dentro del SetParam.

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

{...}

procedure TForm3.SetParam(Value: Integer);
begin
  { Previamente en el Create del form ya se creó BookingMain }
  BookingMain.Param := Value;
  BookingMain.Show;
end;