Que Evento Es El Que Se Genera!!!!!

[xio]

No eso no sirve porque cuando restauro la aplicacion de la barra de tareas no pasa por activate entonces no puedeo controlarlo por ahí.

A nadie le a pasado esto alguna vezzzzzzzzzzzzzzzzzzzzzzzzzzzzzz!!

[[Gabo]]

Sólo por estar seguro, ¿estamos hablando del mismo OnActivate?

Yo me refiero al de la aplicación.

TCustomForm::OnActivate
Occurs when the form becomes active.
__property Classes::TNotifyEvent OnActivate = {read=FOnActivate, write=FOnActivate, stored=IsForm};
Description
Use OnActivate to perform special processing when the form receives focus. A form becomes active when focus is transferred to it (when the user clicks on the form, for example).
Note: The OnActivate event of the application (TApplication), not the form, occurs when Windows switches control from another application.

[[Gabo]]

Acabo de comprobarlo en un rato libre que he tenido y funciona sin problemas.

Es lo que ya sabes:

1.- Un objeto TApplicationsEvents.

2.- El siguiente código para el OnMinimize y el OnRestore (está en C++Builder):

 
void __fastcall TForm1::ApplicationEvents1Minimize(TObject *Sender)
{
    Application->MessageBox("Minimizándome", "Información");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Restore(TObject *Sender)
{
    Application->MessageBox("Restaurándome", "Información");
}

Si no te resulta debe ser otro el problema...

[[gluglu]]

Código Delphi [-]
procedure TMainform.FormCreate(Sender: TObject);
begin
 
  Application.OnActivate := TuFuncion;
 
end;

No hace falta añadir ningún Objeto ni nada.

Se ejecutará cada vez que desde cualquier otro programa se devuelva el control a tu aplicación, esté o no minimizada en la barra de tareas.

[xio]

Exactamente lo que quiero conseguir es lo siguente mantener la pantalla principal de la aplicacion siempre detras de las ventanas que se vayan abriendo, esto lo utilizo en la funcion OnActivate:

Código SQL [-]
procedure TFormMenu.FormActivate(Sender: TObject);
begin
//
  FormMenu.SendToBack;
end;

y esto funciona bien hasta que minimizo la aplicacion en la barra de tareas y la restauro, cuando realizo esta operacion las ventanas que estaban abiertas aparecen detras del menu y no tendria por que. Lo he probado todo y no se que mas hacer.

Un saludo, y gracias!

[xio]

Nadie sabe nada sobre este tema??? Seguro que a alguien le a pasado alguna vez!!!

[[Chris]]

Hola Xio,

Lo primero que debes hacer es cambiar el código on el evento OnActivate del Form, cambialo por este otro:

Código Delphi [-]
Procedure TFormMenu.FormActivate(Sender: TObject);
Begin
SetWindowPos(Handle , HWND_BOTTOM, 0, 0, 0, 0, SWP_NOMOVE or
          SWP_NOSIZE or SWP_NOACTIVATE or SWP_NOREPOSITION);
end;

el segundo paso es evitar que el formulario principal se ponga en sobre los demás cuando es movido, para esto tendrás que declarar en el private el siguiente procedimiento

Código Delphi [-]
type
  TFormMenu = class(TForm)
    ....
    .......
  private
    { Private declarations }
    Procedure FormPosChanged(var Msg: TMessage); message WM_WINDOWPOSCHANGED;

El procedimiento FormPosChanged, lo implementarás así:

Código Delphi [-]
procedure TFormMenu.FormPosChanged(var Msg: TMessage);
begin
SetWindowPos(Handle,HWND_BOTTOM, 0, 0, 0, 0, SWP_NOMOVE or
          SWP_NOSIZE or SWP_NOACTIVATE or SWP_NOREPOSITION);
Msg.Result := 0;
end;

Con este código, ya podrás tener una ventana que siempre esté bajo las demás.

Saludos.

PD: Como a forma de cosejo, me parece que el titulo del hilo no es el adecuado. Todo indicaba que lo que querías era saber el mensaje que se envia cuando la aplicación se restaura, que en todo caso, siempre sería recomendable utilizar los códigos que los compañeros han posteado.