Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Evento Minimizar form (https://www.clubdelphi.com/foros/showthread.php?t=57664)

esocrates 24-06-2008 15:32:59

Evento Minimizar form
 
¿Cuál es el evento del Form para programar en el evento Minimizar?
He encontrado en otro post que puede hacerse en OnResize, pero esto activa tambien el evento al cargar el formulario. Lo que yo quiero es que el código se ejecute sólo al minimizar.
Muchas gracias
Un saludo

jhonny 24-06-2008 15:53:27

Capturando el MESSAGE de Windows, llamado WMSysCommand... osea, declaras en tu FORM un procedimiento como el siguiente:

Código Delphi [-]
procedure OnMinimizar(var Mensaje: TWMSysCommand); message WM_SYSCOMMAND;

Y en el cuepro del mensaje, pones lo que quieres hacer con él, así:

Código Delphi [-]
procedure TForm1.OnMinimizar(var Mensaje: TWMSysCommand);
begin 
  if (Mensaje.CmdType = SC_MINIMIZE) then 
  begin
    //Haces lo que tienes que hacer...
  end;
  DefaultHandler(Mensaje);
end;
Donde TForm1, es el formulario donde estas declarando dicho procedimiento que captura el mensaje TWMSysCommand.

Y listo, espero te sirva :).

esocrates 24-06-2008 16:23:31

Muchas gracias jhonny. Era lo que necesitaba.
Un saludo y hasta pronto


La franja horaria es GMT +2. Ahora son las 22:14:23.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi