Ver Mensaje Individual
  #8  
Antiguo 22-02-2007
Avatar de gluglu
[gluglu] gluglu is offline
Miembro Premium
 
Registrado: sep 2004
Ubicación: Málaga - España
Posts: 1.455
Reputación: 21
gluglu Va por buen camino
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.
__________________
Piensa siempre en positivo !
Responder Con Cita