Гду найти RxTrayIcon ?? или как по-другому засунуть программу в трей ?

← →
skovorodka © (2002-03-16 15:38) [0]

см выше

← →
Atrem (2002-03-16 19:15) [1]

Вот как добавлить иконку в трей,из примера содрал:
Uses ...ShellApi;
....
procedure seticonontray;
var
t:NOTIFYICONDATA;
begin
with t do
begin
t.cbSize:=sizeof(notifyicondata);
t.Wnd:=fMainForm.Handle;
t.uID:=10;
t.uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
t.uCallbackMessage:=WM_USER+10;
t.hIcon:=fMainForm.Icon.Handle;
StrPCopy(t.szTip,"Моя программа ");
end;
Shell_NotifyIcon(NIM_ADD,@t);
end;
Чтобы удалять успользуй константу Nim_Delete

← →
skovorodka © (2002-03-21 19:45) [2]

а как сделать, чтобы при нажатии на иконку показывалась форма

procedure IconMouse(var Msg : TMessage); message WM_USER + 10;
....

Procedure IconMouse(Var Msg:TMessage);
Begin
GetCursorPos(p);
Case Msg.LParam OF
WM_LBUTTONUP,WM_LBUTTONDBLCLK: ShowWindow(Application.Handle,SW_SHOWNORMAL); // Левая кнопка или двойной щелчок
...
End;
End;

Гду найти RxTrayIcon ?? или как по-другому засунуть программу в трей ? Найти похожие ветки