Responder a enventos

[craven]

Hola amigos. Tengo una preguntilla que haceros, a ver si me podeis ayudar. En mi proyecto MDI tengo la ventana padre y una ventana hija que creo en tiempo de ejecución. En algun momento de la ejecución, la ventana hija puede realizar una determinada acción y lanza un evento tras ella... ¿Puede la ventana padre responder a dicho evento cuando se produzca? ¿Cómo? Gracias de antemano. Un saludo.

[roman]

Se me ocurre que lo puedes hacer agregando un evento a la forma Hija:

type
  TFormaHija = class(TForm)
  private
    FOnMiEvento: TNotifyEvent;

  public
    property OnMiEvento: TNotifyEvent read FOnMiEvento write FOnMiEvento;
  end;

Cuando la hija decida mandar el evento lo hará así:

if Assigned(FOnMiEvento) then
  FOnMiEvento(Self);

La forma padre debe crear un método para recibir el evento:

type
  TFormaPadre = class(TForm)
  private
    procedure FormaHijaMiEvento(Sender: TObject);
  end;

Y asignárselo a la propiedad OnMiEvento de la forma hija:

FormaHija.OnMiEvento := FormaHijaMiEvento;

Debes tener cuidado con lo siguiente:

No puedes hacer esta asignación sino hasta después de que se cree la forma hija. Es decir, si tratas de hacer esta asignación en el evento OnCreate de la forma padre y la forma hija se crea automáticamente entonces te lanzará un error de violación de acceso.

Si utilizas varias instancias de la forma hija deberás asignar el procedimiento FormaHijaMiEvento a todas ellas.

// Saludos

[craven]

Hola Roman. Muchas gracias, funciona a la perfección. Un saludo.