Скачать: CL | DM;

Иконка в 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()

---

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

Скачать: CL | DM;



Память: 0.44 MB
Время: -0.965 c