FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Aplicar minimizar en barra de tareas sin poner el codigo en todas las formas
Hola Tengo una aplicación que tiene muchas forms.
Con el siguiente codigo uno puede minimizar en el task bar en lugar de donde lo hace generalmente las aplicaciones de Delphi. Como hago para que la aplicación utilice este código sin ponerlo en cada una de las formas? Código Delphi [-] Procedure WMSYSCOMMAND(Var Msg: TMessage); Message WM_SYSCOMMAND; Procedure WMSYSCOMMAND(Var Msg: TMessage); Begin If Msg.wParam = SC_MINIMIZE Then Begin Application.Minimize; End Else Inherited; End; he probado también este pero tampoco he logrado que funcione para toda la aplicación. Código Delphi [-] Type ... function AppHook(var Msg: TMessage): Boolean; function TForm.AppHook(var Msg: TMessage): Boolean; begin Result := false; if Msg.Msg = WM_ENABLE then if not TWMEnable(Msg).Enabled then begin EnableWindow(Application.Handle, True); Result := true; end; end; //En Create Application.HookMainWindow(AppHook); //En Destroy Application.UnhookMainWindow(AppHook); Que podré estar haciendo mal? Muchas gracias por sus sugerencias. Alexander
__________________
Cielos azules |
#2
|
||||
|
||||
No sé muy bien si entiendo lo que quieres hacer, pero al menos una solución es esta, herencia visual.
Crea un form base que tenga ese código:
Ahora si tienes un form cliente definido así: sólo tienes que cambiarlo a:
hecho ! Si vas a crear un Form nuevo, o bien lo haces a mano como antes, o bien eliges File -> New -> other -> project -> TBaseForm (marcar como inherited) y aceptar. Si como dices tienes muchas formas ya creadas, sin duda necesitas de alguna utilidad que haga el trabajo sucio. Tú mismo puedes cargar los archivos .pas y modificarlo o busca programas ya hechos... que los hay y se han comentado anteriormente en el foro.
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. Última edición por Lepe fecha: 25-11-2009 a las 23:53:04. |
#3
|
||||
|
||||
Es una posibilidad
Pues es una buena posibilidad y no hay mucho esfuerzo. Muchas Gracias por contestar.
__________________
Cielos azules |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Minimizar una aplicacion, pero no en la barra de tareas | jafi666 | API de Windows | 3 | 28-02-2008 02:21:24 |
Minimizar Aplicacion en la barra de tareas | lokodelphi | Varios | 3 | 16-04-2006 06:52:40 |
Mostrar icono en la barra de Tareas al minimizar (2) | Moises22 | API de Windows | 6 | 27-09-2005 09:53:12 |
Minimizar todas las ventanas | santiago14 | Varios | 2 | 17-09-2004 03:34:01 |
minimizar todas las ventanas. | soyhugo | Varios | 2 | 18-02-2004 13:11:26 |
|