Иконка в Trey

← →
Владимир_К (2005-05-31 07:02) [0]

Здравствуйте, помогите с такой проблемой:
Программа сворачиваясь в Trey добавляет иконку, иконка при этом берется из окна программы. Вопрос в том, как добавить иконку в Trey из Image List?. Спасибо.

procedure TForm1.ToolButton9Click(Sender: TObject);
var nidata : TNotifyIconData;
begin
with nidata do
begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Self.Handle;
uID := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage := WM_MYICONNOTIFY;
hIcon := Application.Icon.Handle;
StrPCopy(szTip,"Архивирование файлов");
end;
Shell_NotifyIcon(NIM_ADD, @nidata);
Form1.Hide;
end;

← →
VMcL © (2005-05-31 07:25) [1]

TImageList.GetIcon()

Иконка в Trey Найти похожие ветки