sinalocarlos
09-11-2006, 19:21:35
Buen dia
molesto nuevamente con un problema que me surgio
utilizo
Shell_NotifyIcon(NIM_ADD, @MyIcono);
para mandar mi aplicacion a la bandeja del sistema
el problema ocurre al recuperarla windows no la pone ya en la barra de tareas
anoto el codigo ke utilizo para minimizar la forma:
procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if (Msg.CmdType = SC_MINIMIZE) then
begin
MyIcono.cbSize := sizeof(IconData);
MyIcono.Wnd := Handle;
MyIcono.uID := 100;
MyIcono.uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
MyIcono.uCallbackMessage := WM_USER + 1;
MyIcono.hIcon := Application.Icon.Handle;
MyIcono.StrPCopy(szTip, Application.Title);
Shell_NotifyIcon(NIM_ADD, @MyIcono);
Hide; //Aqui oculto la form
end
else
DefaultHandler(Msg);
end;
para recuperarla le doy un show a la form
alguna idea o sugerencia
molesto nuevamente con un problema que me surgio
utilizo
Shell_NotifyIcon(NIM_ADD, @MyIcono);
para mandar mi aplicacion a la bandeja del sistema
el problema ocurre al recuperarla windows no la pone ya en la barra de tareas
anoto el codigo ke utilizo para minimizar la forma:
procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if (Msg.CmdType = SC_MINIMIZE) then
begin
MyIcono.cbSize := sizeof(IconData);
MyIcono.Wnd := Handle;
MyIcono.uID := 100;
MyIcono.uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
MyIcono.uCallbackMessage := WM_USER + 1;
MyIcono.hIcon := Application.Icon.Handle;
MyIcono.StrPCopy(szTip, Application.Title);
Shell_NotifyIcon(NIM_ADD, @MyIcono);
Hide; //Aqui oculto la form
end
else
DefaultHandler(Msg);
end;
para recuperarla le doy un show a la form
alguna idea o sugerencia