Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 10-09-2003
lolobs lolobs is offline
Registrado
 
Registrado: sep 2003
Posts: 7
Poder: 0
lolobs Va por buen camino
Como puedo saber si se le ha dado al botón de minimizar en una ventana?

Hola a todos!
Como puedo saber si se le ha dado al botón de minimizar en una ventana?
Lo he probado en el evento OnResize del formulario pero cuando yo le doy al botón de minimizar WindowsState es wsNormal. De modo que cuando se minimiza y le doy a otro botón ya si está windowsstate a wsminimized pero yo quiero saber en el momento que se le da al botón...que se le ha dado el botón de minimizar.
Alguien me puede ayudar?


Gracias por anticipado.
Responder Con Cita
  #2  
Antiguo 10-09-2003
__cadetill __cadetill is offline
Miembro
 
Registrado: may 2003
Posts: 3.387
Poder: 24
__cadetill Va por buen camino
quizas te sirva el truco 102 de Trucomania "ejecutar algo antes de que tu aplicacion sea minimizada"
Responder Con Cita
  #3  
Antiguo 10-09-2003
lolobs lolobs is offline
Registrado
 
Registrado: sep 2003
Posts: 7
Poder: 0
lolobs Va por buen camino
Como es el truco 102? No termino de entender lo que me dices.
Responder Con Cita
  #4  
Antiguo 10-09-2003
Avatar de DarkByte
DarkByte DarkByte is offline
Miembro
 
Registrado: sep 2003
Ubicación: Desconocido
Posts: 1.322
Poder: 22
DarkByte Va por buen camino
ESTE ES EL TRUCO ORIGINAL DE TRUCOMANÍA:
//////////////////////////////////////////////////////////////
Ejecutar algo antes de que tu aplicación sea mini-
mizada:

Podemos hacerlo capturando el mensaje WM_SYSCOMMAND

-Primero, capturamos el mensaje, añadiendo esta linea en el private de la declaracion de la form:



type
TForm1 = class(TForm)
private
{Esta linea/This Line}
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
end;



-Y en el implementation, ponemos la procedure:



procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if (Msg.CmdType = SC_MINIMIZE) or
(Msg.CmdType = SC_MAXIMIZE) then
MessageBeep(0);
DefaultHandler(Msg);
end;
__________________
:)
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 03:15:39.


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