Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.13;
Скачать: CL | DM;

Вниз

Как Baloon-подсказку сделать поверх всех окон?   Найти похожие ветки 

 
RTWolf ©   (2004-05-05 20:42) [0]

Дело в том что у меня есть форма которая находится поверх всех окон, и при попытке показать балун с подсказкой из трея, он отображается сзади формы. Вопрос заключается в следующем: как определить хендл окна подсказки чтоб я уже мог ему сам указать что надо быть поверх всех окон?


 
grom2   (2004-05-09 18:38) [1]

а может вы мне пришлете примерчик =показать балун с подсказкой из трея= а то я давно ищу никак не могу найдти grom@bee-s.com или подскажите где можно скочать


 
VMcL ©   (2004-05-09 22:44) [2]

>>grom2  (09.05.04 18:38) [1]

http://msdn.com/library/

искать Shell_NotifyIcon


 
OlegGashev ©   (2004-05-10 00:56) [3]


Стpуктуpа выглядит так
-----------------------
type
 PNotifyIconDataA = ^TNotifyIconDataA;
 TNotifyIconDataA = record
   cbSize: DWORD;
   Wnd: HWND;
   uID: UINT;
   uFlags: UINT;
   uCallbackMessage: UINT;
   hIcon: HICON;
   szTip: array [0..127] of AnsiChar;
   dwState: DWORD;
   dwStateMask: DWORD;
   szInfo: array[0..255] of AnsiChar;
   uTimeout: UINT;
   szInfoTitle: array[0..63] of AnsiChar;
   dwInfoFlags: DWORD
 end;
А вот код
----------
Data:TNotifyIconDataA;
+---------------------
procedure TTray.ShowHint(const Title, Text: string;IconID:byte);
begin
  //    fdata.cbSize:=sizeof(TNotifyIconData);
//    data.uID:=NIIF_INFO;
//    data.uID:=icon_id;
   data.uFlags:=NIF_INFO;
   StrPLCopy(@data.szInfo,Text,SizeOf(data.szInfo)-1);
   StrPLCopy(@data.szInfoTitle,Title,SizeOf(data.szInfoTitle)-1);
   data.uTimeout:=5000;
   data.dwInfoFlags:=NIF_INFO  +       iconid;
   Shell_NotifyIconA(NIM_MODIFY,@data);
end;


 
grom2   (2004-05-10 10:41) [4]

OlegGashev ©   (10.05.04 00:56) [3]
что-то процедура ShowHint не хочет работать,
возникает
[Ошибка] main.pas(88): Undeclared identifier: "NIF_INFO"


 
VMcL ©   (2004-05-10 12:28) [5]

>>grom2  (10.05.04 10:41) [4]

const
// <CommCtrl.c
 TTS_BALLOON = $40;
 NIF_INFO = $00000010;
// CommCtrl.c>

// <ShellApi.c
 NIIF_NONE      = $00000000;
 // icon flags are mutually exclusive
 // and take only the lowest 2 bits
 NIIF_INFO      = $00000001;
 NIIF_WARNING   = $00000002;
 NIIF_ERROR     = $00000003;
 NIIF_ICON_MASK = $0000000F;
 //#if (_WIN32_IE >= $0501)
 NIIF_NOSOUND   = $00000010;
 //#endif
// ShellApi.c>



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

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

Наверх




Память: 0.47 MB
Время: 0.043 c
1-1086006719
GanibalLector
2004-05-31 16:31
2004.06.13
Child в максимум...


14-1085625314
Думкин
2004-05-27 06:35
2004.06.13
С днем рождения! 27 мая


3-1084973834
Gennadiy
2004-05-19 17:37
2004.06.13
Как сделать для IBQuery чтото типа свойства ReadOnly??


6-1082528540
vadvad
2004-04-21 10:22
2004.06.13
Почтовый сервер


3-1085136665
Artem03
2004-05-21 14:51
2004.06.13
Обращение к 2 БД в одном запросе