Ver Mensaje Individual
  #2  
Antiguo 21-02-2007
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.293
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
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...
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita