Просмотр полной версии : Подскажите как DELPHI … исполняемую программу поместить в трей ?
Подскажите как DELPHI … исполняемую программу поместить в трей ?Подскажите как DELPHI … исполняемую программу поместить в трей ?
В пакете RX есть специальный компонент для этого. Вечером выложу пример использования.
Можешь попробовать так:
const
WM_TRAYMSG = WM_USER+1;
....
type
TForm1 = class(TForm)
......
public
IconData: NotifyIconData;
procedure WMTrayMsg(var msg:TMsg); message WM_TRAYMSG;
end;
.......
procedure TForm1.FormCreate(Sender: TObject);
begin
.....
//------------------
fillchar(IconData,Sizeof(IconData),0);
IconData.cbSize:=Sizeof(IconData);
IconData.Wnd:=Handle;
IconData.hIcon:=Loadicon(HInstance,'MAINICON');
IconData.uFlags:=NIF_ICON or NIF_TIP or NIF_MESSAGE;
IconData.szTip:='Chat';
IconData.uCallbackMessage:=WM_TRAYMSG;
Shell_NotifyIcon(NIM_ADD,@IconData);
//----------------------
....
end;
procedure TForm1.WMTrayMsg(var msg: TMsg);
var
p:tpoint;
i,g:integer;
begin
case msg.wParam of
WM_LBUTTONDOWN:
begin
// Твой код
end;
WM_RBUTTONDOWN:
begin
// твой код
end;
end;
end;
P.S.
Выдирал из своей проги - если что-то забыл или не поидет
- сообщай
helldomain
21.08.2002, 22:29
Privet. Wot tebe spisok tray komponentow pod delhpi.
http://www.torry.net/trayicons.htm
А что за компонент …. RxTrayIcon …..?
Мож подсказать ?
Kostet
Будь внимательнее! Я уже писал, что компонент RxTrayIcon находится в составе пакета Rx.
http://www.torry.net/huge.htm
Спасибо за помощь …………… !!!!!!
Все получилось !!!))))
Ну, раз все остались довольны, тему можно закрыть.
nikoTEEN
07.05.2003, 11:57
Поставим вопрос подругому. Как программу убрать из панели задач. В трей мне её не наду сувать. Главно чтоб в панели небыло, когда она запущена.
helldomain
07.05.2003, 16:57
Pered tem kak snimat, nado postawit wopros, a kak ti ee tuda zagnal...
nikoTEEN
07.05.2003, 17:30
helldomain
????
nikoTEEN
ээээ..... может, это диспетчер задач?....
helldomain
07.05.2003, 17:49
Nikoteen, chto-to woobsche ne wjehal, chto ti hochesh iz treya ubrat.
nikoTEEN
07.05.2003, 18:40
helldomain
мне не из трея нужно убрать, а с панели задач.
ShowWindow(Application.Handle,SW_HIDE);
nikoTEEN
07.05.2003, 19:38
RaZEr
пасибо. это то, что нужно. лови голос =))
helldomain
08.05.2003, 17:19
Hmm... Razer, a eto ne peredaetsya formam prilojeniya?
nikoTEEN
08.05.2003, 17:25
да ну и пофик, даже если передается. мне же лучше =)
helldomain
08.05.2003, 17:27
Gi. Prikolist.
vBulletin® v3.8.5, Copyright ©2000-2024, Jelsoft Enterprises Ltd.