Иконка в Trey
Владимир_К © (2005-05-31 07:02:00)
Здравствуйте, помогите с такой проблемой:
Программа сворачиваясь в 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:00) [1]
TImageList.GetIcon()
Наверх 
ЧАТ |
Орешник |
|
