如何使拖盘自动HINT出提示来？

Question

如何使拖盘自动HINT出提示来？

Answer 1

ntida: TNotifyIcondataA;
ntida.szTip := 'Icon';//hint

Answer 2

我的意思是鼠标不用在托盘上面，托盘也能显示hint的内容出来。

Answer 3

是可以的，使用CoolTray组件，实现特殊的提示，只在2000／XP／Me下有的
效果就象XP的系统提示

Answer 4

如上所说只有2000/ME/XP有此效果首先记录要换,不用那个TNotifyIconData改用下面的  TNotifyIconDataEx = record 
    cbSize: DWORD;
    Wnd: HWND;
    uID: UINT;
    uFlags: UINT;
    uCallbackMessage: UINT;
    hIcon: HICON;
    szTip: array [0..127] of Char;
    dwState: DWORD;
    dwStateMask: DWORD;
    szInfo: array [0..255] of Char;
    Dummyunionname: UINT;
    szInfoTitle: array [0..63] of Char;
    dwInfoFlags: DWORD;
  end;  var
    IconData: TNotifyIconDataEx;Shell_NotifyIcon(NIM_ADD, @IconData);基本不变  IconData.cbSize := SizeOf(IconData);
  IconData.uID := 0;
  IconData.hIcon := Application.Icon.Handle;
  IconData.szTip := 'Test';
  IconData.szInfo := 'Test';
  IconData.szInfoTitle := 'Test';
  IconData.dwInfoFlags := 1;
  Shell_NotifyIcon(NIM_MODIFY, @IconData);试试,还有改变IconData.dwInfoFlags = 0,2,3试试