Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Cоздание Hint-а как в Win XP. [D7, WinXP]


aap ©   (2004-11-15 17:00:00) 

Те что всплывают в трее, хитрой формы. В MSDN не смог найти.


Jedi   (2004-11-15 18:37:00) [1]

При этом необходимо установить cbSize := SizeOf(TNotifyIconDataEx) (как минимум, остальные поля - смотри MSDN или справку Delphi по теме Shell_NotifyIcon). Если нужна еще информация, обращайтесь


Jedi   (2004-11-15 17:15:00) [2]

Использовать функцию Shell_NotifyIcon, в качестве параметра lpData - cтруктуру

 TNotifyIconDataEx = Record
   cbSize    : DWORD;
   Wnd       : HWND;
   ID        : UINT;
   Flags     : UINT;
   Callback  : UINT;
   Icon      : HICON;
   Tip       : Array [0..127] of AnsiChar;
   State     : DWORD;
   StateMask : DWORD;
   Info      : Array [0..255] of AnsiChar;
   Timeout   : UINT;
   InfoTitle : Array [0..63] of AnsiChar;
   InfoFlags : DWORD;
 end;


где Info - текст хинта,
InfoTitle - его заголовок,
InfoFlags - иконка

Кстати, работеат и под Win2000


Наверх

Титульная страница Поиск, карта сайта Написать письмо