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

[juanlaplata]

property OnShow: TNotifyEvent;

Description

Use OnShow to perform special processing when the form is shown (that is, when the form’s Visible property is set to True).

El Evento OnShow del Form que manipulas.
Fuente: ayuda de delphi.
Creo que esta ahi la cosa.

[xio]

El evento OnActivate tampoco es y el OnShow lo he provado y nada.


A ver yo utilizo la siguiente rutina para comprobar el evento que se genera:Código Delphi [-]procedure TFormMenu.WMSysCommand(var Message: TWMSysCommand);
begin
//
ShowMessage(IntToStr(Message.CmdType));
inherited;
end;





Con eso podeis comprobar que al minimizar la aplicacion aparece un mensaje con un numero, pero al restaurarla de la barra de tareas no aparece nada. Quiere decir esto que no se puede controlar desde delphi????

[[Gabo]]

La verdad no tengo idea si hay algún evento como el que buscas, pero creo que con un poco de imaginación podrías lograrlo, al fin y al cabo, si se produce el evento OnMinimize y luego el OnActivate, es lógico pensar que el usuario ha minimizado y luego restaurado desde la barra de tareas. Bastaría con que guardaras el estado de minimizado y luego comprobaras ese estado en el evento OnActivate (o el OnShow).

Es una idea nada más, no sé si a alguien se le ocurrirá algo mejor.

[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.