Текущий архив: 2005.07.31;
Скачать: CL | DM;

Вниз

сворачеванье в трей   Найти похожие ветки 

← →
tim ©   (2005-07-14 09:26) [0]

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

---

← →
Fay ©   (2005-07-14 09:28) [1]

tim ©   (14.07.05 9:26)
Shell_NotifyIcon

---

← →
xmed ©   (2005-07-14 10:59) [2]

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 патаму как он выдаст ошибку.

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

---

← →
uny ©   (2005-07-14 11:01) [3]

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

---

← →
Ega23 ©   (2005-07-14 11:04) [4]

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

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

---

← →
xmed ©   (2005-07-14 11:05) [5]

to Ega23 ©  

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

to uny ©  

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

---

← →
Fay ©   (2005-07-14 11:10) [6]

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

---

← →
Ega23 ©   (2005-07-14 11:13) [7]

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

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

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

---

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

Текущий архив: 2005.07.31;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.026 c