Скачать: CL | DM;

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

← →
Dionis   (2003-07-14 12:59) [0]

Как мне свернуть мою программу в system tray так чтобы она при этом не отображалась на taskbar?

---

← →
Mischka ©   (2003-07-14 13:12) [1]

добавить иконку в трей: Shell_NotifyIcon()
скрыть свое окно: showWindow(Handle, SW_HIDE)

---

← →
BillyJeans ©   (2003-07-14 13:18) [2]

или же заглянуть в FAQ

---

← →
Marser ©   (2003-07-14 13:48) [3]

В FAQ ечсть решение в тему форума, а в RXLib есть отличный компонент RXTrayIcon

---

← →
VMcL ©   (2003-07-14 19:02) [4]

>Dionis (14.07.03 12:59)
>чтобы она при этом не отображалась на taskbar

TForm.Hide;

---

← →
Prov ©   (2003-07-15 12:20) [5]

uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
var nid: TNotifyIconData;
begin
ShowWindow(Handle, SW_HIDE);
SendMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
with nid do
begin
nid.cbSize:= SizeOf(nid);
nid.Wnd:= Handle;
nid.uID:= 13321; //Любой идентификатор там себе придумай
nid.uFlags:= nif_icon or nif_message or nif_tip;
nid.hIcon:= LoadIcon(hInstance, MAKEINTRESOURCE("MAINICON"));
( nim_add, @nid) uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
var nid: TNotifyIconData;
begin
ShowWindow(Handle, SW_HIDE);
SendMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
with nid do
begin
nid.cbSize:= SizeOf(nid);
nid.Wnd:= Handle;
nid.uID:= 13321; //Любой идентификатор там себе придумай
nid.uFlags:= nif_icon or nif_message or nif_tip;
nid.hIcon:= LoadIcon(hInstance, MAKEINTRESOURCE("MAINICON"));
nid.szTip:= "Всплывающая подсказка в трее !!!";
end;
Shell_NotifyIcon(nim_add, @nid);
end;

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c