PDA

Просмотр полной версии : Подскажите как DELPHI … исполняемую программу поместить в трей ?


Kostet
21.08.2002, 11:48
Подскажите как DELPHI … исполняемую программу поместить в трей ?Подскажите как DELPHI … исполняемую программу поместить в трей ?

YAS
21.08.2002, 13:25
В пакете RX есть специальный компонент для этого. Вечером выложу пример использования.

Sh
21.08.2002, 15:34
Можешь попробовать так:
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

YAS
22.08.2002, 01:17
вот и обещанный пример

Kostet
22.08.2002, 10:37
А что за компонент …. RxTrayIcon …..?
Мож подсказать ?

YAS
22.08.2002, 11:31
Kostet
Будь внимательнее! Я уже писал, что компонент RxTrayIcon находится в составе пакета Rx.
http://www.torry.net/huge.htm

Kostet
22.08.2002, 13:34
Спасибо за помощь …………… !!!!!!
Все получилось !!!))))

YAS
22.08.2002, 14:55
Ну, раз все остались довольны, тему можно закрыть.

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
????

sasa001
07.05.2003, 17:32
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
мне не из трея нужно убрать, а с панели задач.

RaZEr
07.05.2003, 19:21
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.