System tray

← →
Justluser (2002-07-04 18:31) [0]

Ребята помогите,я новичок:
Как сделать, чтобы программа сворачивалась в System tray

← →
Skywalker (2002-07-04 18:41) [1]

что-то типа этого

const
WM_ICONNOTIFY = WM_USER+1;

type
TFormMain = class(TForm)
procedure WMICON(var Msg:TMessage); message WM_ICONNOTIFY;
procedure WMMIN(var Msg:TMessage); message WM_SYSCOMMAND;
procedure CreateTrayIcon;
procedure DeleteTrayIcon;
private
{ Private declarations }
public
{ Public declarations }
end;

implamentation

procedure TFormMain.WMICON(var Msg:TMessage);
var P:TPoint;
begin
case Msg.LParam of
WM_LBUTTONDOWN:
begin
GetCursorPos(P);
SetForegroundWindow(Application.MainForm.Handle);
Application.ShowMainForm:=true;
ShowWindow(Application.Handle,SW_RESTORE);
ShowWindow(Handle,SW_RESTORE);
DeleteTrayIcon
end;
WM_LBUTTONUP:
end;
end;

procedure TFormMain.WMMIN(var Msg:TMessage);
begin
if Msg.WParam=SC_MINIMIZE then
begin
CreateTrayIcon;
Application.ShowMainForm:=false;
ShowWindow(Application.Handle,SW_HIDE);
ShowWindow(Handle,SW_HIDE)
end
else inherited
end;

procedure TFormMain.CreateTrayIcon;
var
IconData:TNotifyIconData;
begin
with IconData do
begin
cbSize:=SizeOf(TNotifyIconData);
Wnd:=Self.Handle;
uID:=1;
uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage:=WM_ICONNOTIFY;
hIcon:=Application.Icon.Handle;
szTip:="

← →
qube (2002-07-04 18:49) [2]

> Skywalker ©

Дико извиняюсь, но зачем именно так:
ShowWindow(Application.Handle,SW_HIDE);
ShowWindow(Handle,SW_HIDE)

← →
Skywalker (2002-07-04 18:53) [3]

Разве ShowWindow создает иконку в System Tray?

← →
Skier (2002-07-04 18:54) [4]

>Justluser
А за готовыми решениями можно сюда сходить :
http://www.torry.net/trayicons.htm

← →
Skywalker (2002-07-04 19:03) [5]

2 qube
извеняюсь, не понял вопрос... :)

почему так?
потому что первый ShowWindow прячет окно,
а второй - прячет окно из панель задач.

← →
VID (2002-07-04 19:21) [6]

> Skier © (04.07.02 18:54)
> >Justluser
> А за готовыми решениями можно сюда сходить :
> http://www.torry.net/trayicons.htm

или в UBPFD:
http://delphibase.endimus.com/?action=viewfunc&topic=appctrl&id=10239

← →
а1 (2002-07-29 18:30) [7]

У меня так не проходит ругается на: message WM_ICONNOTIFY говорит что неправильная пропись form1(я все изменил что надо). Не знаю, помогите кто нибудь.

← →
quark (2002-07-29 22:44) [8]

На adept.h1.ru есть исчерпывающее FAQ по этому поводу(library-delphi-windows). Заодно скачай исходник Clicker он в трей висит и посмотри.

← →
Ich Hasse (2002-07-29 23:22) [9]

Заколебали с такими вопросами, они обсуждались не раз, хотя бы читайте все FAQ, и форумы...

← →
Mr. API (2002-07-30 21:40) [10]

Могу прислать готовый пример использования Shell_NotifyIcon.

> Skywalker
const
WM_ICONNOTIFY = WM_USER+1;

На сколько я знаю, borland не рекомендует использовать сообщения, которые идут сразу после WM_USER, т. к. они могут использоваться уже самой программой для собственных нужд.

System tray Найти похожие ветки