Текущий архив: 2002.06.17;
Скачать: CL | DM;

Вниз

Гду найти 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]

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

---

← →
Song ©   (2002-03-21 21:21) [3]

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;

---

Страницы: 1 вся ветка

Текущий архив: 2002.06.17;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c