![]() |
| |||||||
| Registrarse | Preguntas Frecuentes | Lista de Foreros | Calendario | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
| | LinkBack | Herramientas | Desplegado |
| |||
| Hola grupo !!! Necesito saber como hacer que no se muestre ningún formulario al crear una aplicación que tiene un solo formulario, e instala un icono en la barra de tareas, el cual tiene un menú para interactuar con la aplicación. Gracias de antemano !!! |
| | ||||
| ||||
| |
| |||
| 1) Primer paso colocar la propiedad Visible del formulario en Flase. 2) Declarar las siguientes constantes: Const //Identificador de Icono ICONO: Integer = 1; MENSAJE = WM_USER + 100; 3) Declarar los siguientes Metodos para el formulario procedure ColgarIcono; procedure IconosTimer(Sender: TObject); 4) Declarar una variable y procedure private Informacion : TNotifyIconData; Procedure IconClicked( Var Msg:TMessage); Message MENSAJE; Procedure OcultoVentana(Sender: TObject); 5) Acontinuación te mostrare los diferentes procesos que debes utilizar //Al crear el formulario procedure TfmMain.FormCreate(Sender: TObject); begin ColgarIcono; OcultoVentana(Nil); Application.OnMinimize := OcultoVentana; end; //Activa el icono en la barra de tarea procedure TfmMain.ColgarIcono; begin //Muestro el Icono de Femauto en la barra With Informacion do Begin cbSize := SizeOf(Informacion); Wnd := Handle; // Ventana a la que se enviarán los mensajes uID := ICONO; uFlags := NIF_ICON Or NIF_MESSAGE Or NIF_TIP; uCallbackMessage := MENSAJE; hIcon := Application.Icon.Handle; szTip := 'Comunicación de display'; end; Shell_NotifyIcon(NIM_ADD, ***Informacion); end; //Evento al hacer click en el icono de la barra Procedure TfmMain.IconClicked(Var Msg:TMessage); begin if (Msg.lParam = WM_LBUTTONDOWN) then begin Application.Restore; SetForegroundWindow(Handle); WindowState := wsNormal; end else inherited; end; //Destruimos el icono de la barra procedure TfmMain.FormDestroy(Sender: TObject); begin Shell_NotifyIcon(NIM_DELETE, ***Informacion); end; //Ocultamos el formulario al minimizar Procedure TfmMain.OcultoVentana(Sender: TObject); Begin ShowWindow(Application.handle,SW_HIDE); end; |
| |||
| 1) Primer paso colocar la propiedad Visible del formulario en Flase. 2) Declarar las siguientes constantes: Const //Identificador de Icono ICONO: Integer = 1; MENSAJE = WM_USER + 100; 3) Declarar los siguientes Metodos para el formulario procedure ColgarIcono; procedure IconosTimer(Sender: TObject); 4) Declarar una variable y procedure private Informacion : TNotifyIconData; Procedure IconClicked( Var Msg:TMessage); Message MENSAJE; Procedure OcultoVentana(Sender: TObject); 5) Acontinuación te mostrare los diferentes procesos que debes utilizar //Al crear el formulario procedure TfmMain.FormCreate(Sender: TObject); begin ColgarIcono; OcultoVentana(Nil); Application.OnMinimize := OcultoVentana; end; //Activa el icono en la barra de tarea procedure TfmMain.ColgarIcono; begin //Muestro el Icono de Femauto en la barra With Informacion do Begin cbSize := SizeOf(Informacion); Wnd := Handle; // Ventana a la que se enviarán los mensajes uID := ICONO; uFlags := NIF_ICON Or NIF_MESSAGE Or NIF_TIP; uCallbackMessage := MENSAJE; hIcon := Application.Icon.Handle; szTip := 'Comunicación de display'; end; Shell_NotifyIcon(NIM_ADD, ***Informacion); end; //Evento al hacer click en el icono de la barra Procedure TfmMain.IconClicked(Var Msg:TMessage); begin if (Msg.lParam = WM_LBUTTONDOWN) then begin Application.Restore; SetForegroundWindow(Handle); WindowState := wsNormal; end else inherited; end; //Destruimos el icono de la barra procedure TfmMain.FormDestroy(Sender: TObject); begin Shell_NotifyIcon(NIM_DELETE, ***Informacion); end; //Ocultamos el formulario al minimizar Procedure TfmMain.OcultoVentana(Sender: TObject); Begin ShowWindow(Application.handle,SW_HIDE); end; |
| |||
| 1) Primer paso colocar la propiedad Visible del formulario en Flase. 2) Declarar las siguientes constantes: Const //Identificador de Icono ICONO: Integer = 1; MENSAJE = WM_USER + 100; 3) Declarar los siguientes Metodos para el formulario procedure ColgarIcono; procedure IconosTimer(Sender: TObject); 4) Declarar una variable y procedure private Informacion : TNotifyIconData; Procedure IconClicked( Var Msg:TMessage); Message MENSAJE; Procedure OcultoVentana(Sender: TObject); 5) Acontinuación te mostrare los diferentes procesos que debes utilizar //Al crear el formulario procedure TfmMain.FormCreate(Sender: TObject); begin ColgarIcono; OcultoVentana(Nil); Application.OnMinimize := OcultoVentana; end; //Activa el icono en la barra de tarea procedure TfmMain.ColgarIcono; begin //Muestro el Icono de Femauto en la barra With Informacion do Begin cbSize := SizeOf(Informacion); Wnd := Handle; // Ventana a la que se enviarán los mensajes uID := ICONO; uFlags := NIF_ICON Or NIF_MESSAGE Or NIF_TIP; uCallbackMessage := MENSAJE; hIcon := Application.Icon.Handle; szTip := 'Comunicación de display'; end; Shell_NotifyIcon(NIM_ADD, ***Informacion); end; //Evento al hacer click en el icono de la barra Procedure TfmMain.IconClicked(Var Msg:TMessage); begin if (Msg.lParam = WM_LBUTTONDOWN) then begin Application.Restore; SetForegroundWindow(Handle); WindowState := wsNormal; end else inherited; end; //Destruimos el icono de la barra procedure TfmMain.FormDestroy(Sender: TObject); begin Shell_NotifyIcon(NIM_DELETE, ***Informacion); end; //Ocultamos el formulario al minimizar Procedure TfmMain.OcultoVentana(Sender: TObject); Begin ShowWindow(Application.handle,SW_HIDE); end; |
| |||
| 1) Primer paso colocar la propiedad Visible del formulario en Flase. 2) Declarar las siguientes constantes: Const //Identificador de Icono ICONO: Integer = 1; MENSAJE = WM_USER + 100; 3) Declarar los siguientes Metodos para el formulario procedure ColgarIcono; procedure IconosTimer(Sender: TObject); 4) Declarar una variable y procedure private Informacion : TNotifyIconData; Procedure IconClicked( Var Msg:TMessage); Message MENSAJE; Procedure OcultoVentana(Sender: TObject); 5) Acontinuación te mostrare los diferentes procesos que debes utilizar //Al crear el formulario procedure TfmMain.FormCreate(Sender: TObject); begin ColgarIcono; OcultoVentana(Nil); Application.OnMinimize := OcultoVentana; end; //Activa el icono en la barra de tarea procedure TfmMain.ColgarIcono; begin //Muestro el Icono de Femauto en la barra With Informacion do Begin cbSize := SizeOf(Informacion); Wnd := Handle; // Ventana a la que se enviarán los mensajes uID := ICONO; uFlags := NIF_ICON Or NIF_MESSAGE Or NIF_TIP; uCallbackMessage := MENSAJE; hIcon := Application.Icon.Handle; szTip := 'Comunicación de display'; end; Shell_NotifyIcon(NIM_ADD, ***Informacion); end; //Evento al hacer click en el icono de la barra Procedure TfmMain.IconClicked(Var Msg:TMessage); begin if (Msg.lParam = WM_LBUTTONDOWN) then begin Application.Restore; SetForegroundWindow(Handle); WindowState := wsNormal; end else inherited; end; //Destruimos el icono de la barra procedure TfmMain.FormDestroy(Sender: TObject); begin Shell_NotifyIcon(NIM_DELETE, ***Informacion); end; //Ocultamos el formulario al minimizar Procedure TfmMain.OcultoVentana(Sender: TObject); Begin ShowWindow(Application.handle,SW_HIDE); end; |
| |||
| 1) Primer paso colocar la propiedad Visible del formulario en Flase. 2) Declarar las siguientes constantes: Const //Identificador de Icono ICONO: Integer = 1; MENSAJE = WM_USER + 100; 3) Declarar los siguientes Metodos para el formulario procedure ColgarIcono; procedure IconosTimer(Sender: TObject); 4) Declarar una variable y procedure private Informacion : TNotifyIconData; Procedure IconClicked( Var Msg:TMessage); Message MENSAJE; Procedure OcultoVentana(Sender: TObject); 5) Acontinuación te mostrare los diferentes procesos que debes utilizar //Al crear el formulario procedure TfmMain.FormCreate(Sender: TObject); begin ColgarIcono; OcultoVentana(Nil); Application.OnMinimize := OcultoVentana; end; //Activa el icono en la barra de tarea procedure TfmMain.ColgarIcono; begin //Muestro el Icono de Femauto en la barra With Informacion do Begin cbSize := SizeOf(Informacion); Wnd := Handle; // Ventana a la que se enviarán los mensajes uID := ICONO; uFlags := NIF_ICON Or NIF_MESSAGE Or NIF_TIP; uCallbackMessage := MENSAJE; hIcon := Application.Icon.Handle; szTip := 'Comunicación de display'; end; Shell_NotifyIcon(NIM_ADD, ***Informacion); end; //Evento al hacer click en el icono de la barra Procedure TfmMain.IconClicked(Var Msg:TMessage); begin if (Msg.lParam = WM_LBUTTONDOWN) then begin Application.Restore; SetForegroundWindow(Handle); WindowState := wsNormal; end else inherited; end; //Destruimos el icono de la barra procedure TfmMain.FormDestroy(Sender: TObject); begin Shell_NotifyIcon(NIM_DELETE, ***Informacion); end; //Ocultamos el formulario al minimizar Procedure TfmMain.OcultoVentana(Sender: TObject); Begin ShowWindow(Application.handle,SW_HIDE); end; |
| |||
| Muchas gracias Herman. Lo pruebo y contesto al grupo. "Herman Shiraly Camargo Bustos" <shiraly***terra.es> escribió en el mensaje news:dc1kd.3538606$A6.11046783***telenews.teleline.e s... > 1) Primer paso colocar la propiedad Visible del formulario en Flase. > > 2) Declarar las siguientes constantes: > > Const > //Identificador de Icono > ICONO: Integer = 1; > MENSAJE = WM_USER + 100; > 3) Declarar los siguientes Metodos para el formulario > procedure ColgarIcono; > procedure IconosTimer(Sender: TObject); > > 4) Declarar una variable y procedure > private > Informacion : TNotifyIconData; > Procedure IconClicked( Var Msg:TMessage); Message MENSAJE; > Procedure OcultoVentana(Sender: TObject); > > 5) Acontinuación te mostrare los diferentes procesos que debes utilizar > //Al crear el formulario > procedure TfmMain.FormCreate(Sender: TObject); > begin > ColgarIcono; > OcultoVentana(Nil); > Application.OnMinimize := OcultoVentana; > end; > > //Activa el icono en la barra de tarea > procedure TfmMain.ColgarIcono; > begin > //Muestro el Icono de Femauto en la barra > With Informacion do > Begin > cbSize := SizeOf(Informacion); > Wnd := Handle; // Ventana a la que se > enviarán los mensajes > uID := ICONO; > uFlags := NIF_ICON Or NIF_MESSAGE Or NIF_TIP; > uCallbackMessage := MENSAJE; > hIcon := Application.Icon.Handle; > szTip := 'Comunicación de display'; > end; > Shell_NotifyIcon(NIM_ADD, ***Informacion); > end; > > //Evento al hacer click en el icono de la barra > Procedure TfmMain.IconClicked(Var Msg:TMessage); > begin > if (Msg.lParam = WM_LBUTTONDOWN) then > begin > Application.Restore; > SetForegroundWindow(Handle); > WindowState := wsNormal; > end > else inherited; > end; > > //Destruimos el icono de la barra > procedure TfmMain.FormDestroy(Sender: TObject); > begin > Shell_NotifyIcon(NIM_DELETE, ***Informacion); > end; > > //Ocultamos el formulario al minimizar > Procedure TfmMain.OcultoVentana(Sender: TObject); > Begin > ShowWindow(Application.handle,SW_HIDE); > end; > > |
| |||
| Muchas gracias Herman. Lo pruebo y contesto al grupo. "Herman Shiraly Camargo Bustos" <shiraly***terra.es> escribió en el mensaje news:dc1kd.3538606$A6.11046783***telenews.teleline.e s... > 1) Primer paso colocar la propiedad Visible del formulario en Flase. > > 2) Declarar las siguientes constantes: > > Const > //Identificador de Icono > ICONO: Integer = 1; > MENSAJE = WM_USER + 100; > 3) Declarar los siguientes Metodos para el formulario > procedure ColgarIcono; > procedure IconosTimer(Sender: TObject); > > 4) Declarar una variable y procedure > private > Informacion : TNotifyIconData; > Procedure IconClicked( Var Msg:TMessage); Message MENSAJE; > Procedure OcultoVentana(Sender: TObject); > > 5) Acontinuación te mostrare los diferentes procesos que debes utilizar > //Al crear el formulario > procedure TfmMain.FormCreate(Sender: TObject); > begin > ColgarIcono; > OcultoVentana(Nil); > Application.OnMinimize := OcultoVentana; > end; > > //Activa el icono en la barra de tarea > procedure TfmMain.ColgarIcono; > begin > //Muestro el Icono de Femauto en la barra > With Informacion do > Begin > cbSize := SizeOf(Informacion); > Wnd := Handle; // Ventana a la que se > enviarán los mensajes > uID := ICONO; > uFlags := NIF_ICON Or NIF_MESSAGE Or NIF_TIP; > uCallbackMessage := MENSAJE; > hIcon := Application.Icon.Handle; > szTip := 'Comunicación de display'; > end; > Shell_NotifyIcon(NIM_ADD, ***Informacion); > end; > > //Evento al hacer click en el icono de la barra > Procedure TfmMain.IconClicked(Var Msg:TMessage); > begin > if (Msg.lParam = WM_LBUTTONDOWN) then > begin > Application.Restore; > SetForegroundWindow(Handle); > WindowState := wsNormal; > end > else inherited; > end; > > //Destruimos el icono de la barra > procedure TfmMain.FormDestroy(Sender: TObject); > begin > Shell_NotifyIcon(NIM_DELETE, ***Informacion); > end; > > //Ocultamos el formulario al minimizar > Procedure TfmMain.OcultoVentana(Sender: TObject); > Begin > ShowWindow(Application.handle,SW_HIDE); > end; > > |
| |||
| Muchas gracias Herman. Lo pruebo y contesto al grupo. "Herman Shiraly Camargo Bustos" <shiraly***terra.es> escribió en el mensaje news:dc1kd.3538606$A6.11046783***telenews.teleline.e s... > 1) Primer paso colocar la propiedad Visible del formulario en Flase. > > 2) Declarar las siguientes constantes: > > Const > //Identificador de Icono > ICONO: Integer = 1; > MENSAJE = WM_USER + 100; > 3) Declarar los siguientes Metodos para el formulario > procedure ColgarIcono; > procedure IconosTimer(Sender: TObject); > > 4) Declarar una variable y procedure > private > Informacion : TNotifyIconData; > Procedure IconClicked( Var Msg:TMessage); Message MENSAJE; > Procedure OcultoVentana(Sender: TObject); > > 5) Acontinuación te mostrare los diferentes procesos que debes utilizar > //Al crear el formulario > procedure TfmMain.FormCreate(Sender: TObject); > begin > ColgarIcono; > OcultoVentana(Nil); > Application.OnMinimize := OcultoVentana; > end; > > //Activa el icono en la barra de tarea > procedure TfmMain.ColgarIcono; > begin > //Muestro el Icono de Femauto en la barra > With Informacion do > Begin > cbSize := SizeOf(Informacion); > Wnd := Handle; // Ventana a la que se > enviarán los mensajes > uID := ICONO; > uFlags := NIF_ICON Or NIF_MESSAGE Or NIF_TIP; > uCallbackMessage := MENSAJE; > hIcon := Application.Icon.Handle; > szTip := 'Comunicación de display'; > end; > Shell_NotifyIcon(NIM_ADD, ***Informacion); > end; > > //Evento al hacer click en el icono de la barra > Procedure TfmMain.IconClicked(Var Msg:TMessage); > begin > if (Msg.lParam = WM_LBUTTONDOWN) then > begin > Application.Restore; > SetForegroundWindow(Handle); > WindowState := wsNormal; > end > else inherited; > end; > > //Destruimos el icono de la barra > procedure TfmMain.FormDestroy(Sender: TObject); > begin > Shell_NotifyIcon(NIM_DELETE, ***Informacion); > end; > > //Ocultamos el formulario al minimizar > Procedure TfmMain.OcultoVentana(Sender: TObject); > Begin > ShowWindow(Application.handle,SW_HIDE); > end; > > |
| |||
| Muchas gracias Herman. Lo pruebo y contesto al grupo. "Herman Shiraly Camargo Bustos" <shiraly***terra.es> escribió en el mensaje news:dc1kd.3538606$A6.11046783***telenews.teleline.e s... > 1) Primer paso colocar la propiedad Visible del formulario en Flase. > > 2) Declarar las siguientes constantes: > > Const > //Identificador de Icono > ICONO: Integer = 1; > MENSAJE = WM_USER + 100; > 3) Declarar los siguientes Metodos para el formulario > procedure ColgarIcono; > procedure IconosTimer(Sender: TObject); > > 4) Declarar una variable y procedure > private > Informacion : TNotifyIconData; > Procedure IconClicked( Var Msg:TMessage); Message MENSAJE; > Procedure OcultoVentana(Sender: TObject); > > 5) Acontinuación te mostrare los diferentes procesos que debes utilizar > //Al crear el formulario > procedure TfmMain.FormCreate(Sender: TObject); > begin > ColgarIcono; > OcultoVentana(Nil); > Application.OnMinimize := OcultoVentana; > end; > > //Activa el icono en la barra de tarea > procedure TfmMain.ColgarIcono; > begin > //Muestro el Icono de Femauto en la barra > With Informacion do > Begin > cbSize := SizeOf(Informacion); > Wnd := Handle; // Ventana a la que se > enviarán los mensajes > uID := ICONO; > uFlags := NIF_ICON Or NIF_MESSAGE Or NIF_TIP; > uCallbackMessage := MENSAJE; > hIcon := Application.Icon.Handle; > szTip := 'Comunicación de display'; > end; > Shell_NotifyIcon(NIM_ADD, ***Informacion); > end; > > //Evento al hacer click en el icono de la barra > Procedure TfmMain.IconClicked(Var Msg:TMessage); > begin > if (Msg.lParam = WM_LBUTTONDOWN) then > begin > Application.Restore; > SetForegroundWindow(Handle); > WindowState := wsNormal; > end > else inherited; > end; > > //Destruimos el icono de la barra > procedure TfmMain.FormDestroy(Sender: TObject); > begin > Shell_NotifyIcon(NIM_DELETE, ***Informacion); > end; > > //Ocultamos el formulario al minimizar > Procedure TfmMain.OcultoVentana(Sender: TObject); > Begin > ShowWindow(Application.handle,SW_HIDE); > end; > > |
| |
| |
![]() |
| Herramientas | |
| Desplegado | |
| |
Temas Similares | ||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| Formulario Siempre Visible | El Sueco | Newsgroup microsoft.public.es.access | 4 | 13-08-2008 12:45:01 |
| ¿Cómo hacer un formulario? | oscar | Newsgroup es.comp.infosistemas.www.paginas-web | 24 | 24-10-2005 15:13:17 |
| ¿Cómo hacer un formulario? | oscar | Newsgroup es.comp.infosistemas.www.paginas-web | 0 | 20-10-2005 22:31:08 |
| Como hacer una aplicacion residente (como los antivirus) | -- Juanjo -- | Newsgroup microsoft.public.es.vs | 14 | 23-10-2004 01:59:25 |
| formulario se abre (del taskbar) al cerrar otra aplicacion ¿como? | Alberto Trujillo | Newsgroup es.comp.lenguajes.visual-basic | 0 | 16-09-2004 14:02:52 |