FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Ayuda sobre el RxTrayIcon
Hola a Todos los foristas:
Les agradecería si alguien pudiera decirme donde puedo conseguir ayuda sobre como usar el RxTrayIcon gracias de antemano por su tiempo. Un hermano Mexicano los Saluda Última edición por El_Perrito fecha: 18-12-2004 a las 00:12:46. Razón: Corregir el titulo |
#2
|
||||
|
||||
Simplemente tienes que añadirlo a un Form, ponerle un icono (no es necesario, pero si bonito), y asociarle un PopupMenú.
en la propiedad Icons, puede añadirles varios y activar Animated cuando lo desees (para que parpadee) tambien tienes varios eventos que quizás quieras controlar. Si tienes alguna duda concreta, avisa. Saludos |
#3
|
|||
|
|||
wenas, tengo un problemita con este comp. cuando lo quiero minimizar (le doy click al boton minimizar del form [-] no lo coloca en el tray.. lo minimiza normalmente...
queria saber si hay alguna forma para ke al minimizar se coloque en el tray o alguna forma de manejar el evento que ocurre al darle click al boton minimizar de un form.. muchas gracias... |
#4
|
||||
|
||||
Yo para Eso no suelo utilizar un componente!! aca te dejo este codigo que hace lo mismo
Código:
// En el private del Form IconData: TNotifyIconData; Procedure SysCommand(var msg: TWMSysCommand);Message WM_SYSCOMMAND; Procedure ActivarFrom(Var msg:TMESSAGE);Message WM_USER+1; .................... procedure TForm1.FormCreate(Sender: TObject); begin //Le asigno el Icono de La aplicacion With IconData do begin cbsize:=sizeof(icondata); wnd:=Handle; uID:=100; uFlags:= NIF_MESSAGE+NIF_ICON + NIF_TIP; uCallBackMessage:= WM_User +1; hIcon:=application.Icon.Handle; StrPCopy(szTip,Application.Title); end; //Agrega el Icono shell_NotifyIcon(NIM_ADD,@IconData); end; procedure TForm1.SysCommand(var msg: TWMSysCommand); begin if (Msg.CmdType = SC_minimize) or (msg.CmdType=SC_CLOSE) then begin With IconData do begin cbsize:=sizeof(icondata); wnd:=Handle; uID:=100; uFlags:= NIF_MESSAGE+NIF_ICON + NIF_TIP; uCallBackMessage:= WM_User +1; hIcon:=application.Icon.Handle; StrPCopy(szTip,Application.Title); end; //Lo Asigno al SystemTry shell_NotifyIcon(NIM_ADD,@IconData); //Lo saco de la Barra de TAreas hide; end else DefaultHandler(msg); end; procedure TForm1.ActivarFrom(var msg: Tmessage); var P:Tpoint; begin IF MSG.lPAram = WM_LBUTTONDOWN then form1.show else if msg.LParam = WM_RBUTTONDOWN THEN begin SetForegroundWindow(Handle); GetCursorPos(p); PopupMenu1.Popup(p.x, p.y); PostMessage(Handle, WM_NULL, 0, 0); end; end; // Si no queres que la aplicaacion se cierre cuando click en Cerrar en el form close procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var msg:TWMSysCommand; begin if not salida then begin canclose:=false; msg.CmdType :=SC_minimize; SysCommand(msg); end else canclose:=true; end; Saludos y espero que te sea de ayuda |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|