| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

сворачеванье в трей [D7, WinXP]

tim ©   (2005-07-14 09:26:00) 

как в delphi7 cвернуть прогу в трей????????

---

Ega23   (2005-07-14 11:13:00) [1]

угу какой умный!!!
а по теме что написать нечего?

Ага. Самый умный. Я этого не отрицаю. Более того, всячески поощеряю восхваления в свой адрес.

А по теме - Fay ©  в [1] всё сказал, дополнить - нечего.

---

Fay   (2005-07-14 11:10:00) [2]

2 xmed ©   (14.07.05 10:59) [2]
>> А обьяснить с кодом что жалко что ли?
А что объяснять? Мне вот не очевидно, что у автора возникнут проблемы с реализацией.

---

xmed   (2005-07-14 11:05:00) [3]

to Ega23 ©  

угу какой умный!!!
а по теме что написать нечего?

to uny ©  

надо в процедуре
procedure TForm1.Button1Click(Sender: TObject);
добавить
Form1.Hide;

---

Ega23   (2005-07-14 11:04:00) [4]

2 xmed ©   (14.07.05 10:59) [2]

Купи Орфографический Словарь, дитятко...

---

uny   (2005-07-14 11:01:00) [5]

вроде нужно окну сообщение послать, wmhide или похожее

---

xmed   (2005-07-14 10:59:00) [6]

to Fay ©  
А обьяснить с кодом что жалко что ли?
Сколько я сам мучался пока не нашел решение.
На авторство ваабче не претендую:
-----------------------------------------------------------------------
           "Delphi X-Files" < http://www.DlfXFiles.narod.ru/>"
                   "Помещение иконки в Tray-панели"
-----------------------------------------------------------------------

Для решения данной проблемы создано очень много соответствующих
компонентов, которые без единой строчки кода добавляют любую
пиктограмму в системную панель. Но, не мешает знать сам принцип
помещения иконки в Tray-панель.
-----------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
{
 Добавление иконки
}
var
 No    : TNotifyIconData;
 TrIcon: HIcon;
begin
 TrIcon := ExtractIcon(Handle, 'C:\Cursor.ico', 0);
 With No do
  begin
    cbSize := Sizeof(TNotifyIconData);
    Wnd    := Handle;
    uID    := 0;
    UFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
    SzTip  := 'Traybar Tip';
    HIcon  := TrIcon;
    uCallBackMessage := WM_USER + 0;
  end;
 Shell_NotifyIcon(Nim_Add, @no);
end;

procedure TForm1.Button2Click(Sender: TObject);
{
 Удаление иконки
}
var
 No: TNotifyIconData;
begin
 With No do
 begin
  cbSize := Sizeof(TNotifyIconData);
  Wnd    := Handle;
  uID    := 0;
 end;
 Shell_NotifyIcon(Nim_Delete, @No);
end;
-----------------------------------------------------------------------

Плус патом можеш добавить чтобы форма сворачивалась процедурку

Form1.Hide;

тока не вызывай её из OnShow или OnCreate патаму как он выдаст ошибку.

Если надо давай мыло я тебе могу кампаненту скинуть

---

Fay   (2005-07-14 09:28:00) [7]

tim ©   (14.07.05 9:26)
Shell_NotifyIcon

---

Наверх