FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Consulta sobre focos
Hola, estoy trabajando con un programa que la idea es que este en el systray, totalmente oculto, solo se vea el icono del tray y a su vez, que no moleste al estar usando la pc, ya que este programa va haciendo rutinas paralelas, asi que mientras se ejecuta debes en cuando me saca el foco de por ejemplo el msn, o de esta pagina mientras escribo, cada sierto tiempo que es que ejecuta una accion, esta accion no genera mostrar ventanas, ni nada visual, simplemente esta navegando una pagina web, y lo que hace es recargar la pagina. Tambien desactive del explorer que le de foco cuando se carga la pagina, ya que estoy usando el twebbrowser y es el explorer.
Tambien estoy usando showwindow, pero no se bien como funciona, lo que quiero es que este programa no tome foco a menos que yo usuario ejecute una accion sobre el, con el mouse, hay alguna forma de hacer eso? de que una aplicacion no tome foco? |
#2
|
||||
|
||||
RE: consulta sobre focos
este codigo me lo pasaron a mi hace rato aunq no lo probe del todo
pero parece q lo q hace es q cuando cierras el programa te lo deja en el systray y lo puedes volver a abrir o algo asi. algunas cosas estan en ingles porq asi me lopasaron. haber si lo pueds hacer correr ,creo q es lo q quieres In your uses statement, include 'shellapi'. Create a program constant like this: WM_NOTIFYICON = WM_USER+333; At the end of your procedure listing for your form include these lines: private { Private declarations } tnid: TNotifyIconData; HMainIcon: HICON; procedure CMClickIcon(var msg: TMessage); message WM_NOTIFYICON; The actual procedure looks like this: procedure TForm.CMClickIcon(var msg: TMessage); begin case msg.lparam of WM_LBUTTONDBLCLK, WM_LBUTTONDOWN : Show; end; end; In your TForm.FormCreate procedure include these lines: HMainIcon := LoadIcon(MainInstance, 'MAINICON'); Shell_NotifyIcon(NIM_DELETE, @tnid); tnid.cbSize := sizeof(TNotifyIconData); tnid.Wnd := handle; tnid.uID := 123; tnid.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP; tnid.uCallbackMessage := WM_NOTIFYICON; tnid.hIcon := HMainIcon; tnid.szTip := 'Volume Control'; Shell_NotifyIcon(NIM_ADD, @tnid); In your TForm.FormClose procedure add these lines: Action := caNone; Hide; |
#3
|
||||
|
||||
Hola,
TheWatcher, por favor, edita tu anterior mensaje y encierra el código fuente de Delphi en etiquetas [ DELPHI ], de tal modo que tu mensaje quede más curioso y el código fuente se lea y se entienda mejor. Gracias.
Nota: Si no sabes cómo utilizar las etiquetas [ DELPHI ] así como otras etiquetas, por favor, revisa este Hilo. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
consulta sobre .ini | bytecero | Varios | 2 | 02-02-2005 21:01:09 |
Consulta sobre DBGrid | diegofhernando | Conexión con bases de datos | 4 | 10-11-2004 18:09:25 |
Consulta sobre componentes | Esau | Varios | 3 | 29-10-2004 16:58:36 |
consulta sobre consulta | superhopi | SQL | 2 | 16-05-2003 19:01:47 |
|