Ver Mensaje Individual
  #1  
Antiguo 31-12-2010
Hamizura Hamizura is offline
Registrado
NULL
 
Registrado: dic 2010
Posts: 8
Reputación: 0
Hamizura Va por buen camino
Evento OnActivate no responde

Hola a todos.

Aprovecho a saludarlos en mi primera consulta como miembro, (aunque no como visitante).

Tengo 3 forms: Form1(MDIForm), Form2(MDIChild) y Form3(Normal).

En Form1:
Código Delphi [-]
...
interface

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm2.Create(nil) do Show;
end;

En Form2:
Código Delphi [-]
...
interface

uses Unit3;

procedure TForm2.Button1Click(Sender: TObject);
begin
  with TForm3.Create(nil) do ShowModal; 
end;

procedure TForm2.FormActivate(Sender: TObject);
begin
  ShowMessage('OnActivate');
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:= caFree;
end;

Mi problema es el siguiente: Si muestro a Form3 con ShowModal, al cerrarse este y volver a Form2,
no ejecuta el evento OnActivate de Form2. Pero si lo muestro con Show se dispara correctamente.

¿ Alguien sabe si se puede cambiar ese comportamiento ?

Saludos y muchas gracias.
Responder Con Cita