сворачеванье в трей

← →
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;

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

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

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

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

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