Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.25;
Скачать: 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 вся ветка

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

Наверх




Память: 0.46 MB
Время: 0.024 c
1-1120716690
chelovek
2005-07-07 10:11
2005.07.25
Как сделать объявление константы типа массив с моими записями ?


1-1120486223
Subdigger
2005-07-04 18:10
2005.07.25
TPageControl


1-1120511944
Велосипед
2005-07-05 01:19
2005.07.25
Как на Canvas е писать текст под углом ?


1-1120460209
maktub
2005-07-04 10:56
2005.07.25
Преобразование форматов форм


14-1120470538
u-12
2005-07-04 13:48
2005.07.25
Анти4июля