求DELPHI中实现

要求实现想QQ,MSN那样，界面最小化后，如果消息来了后，能闪烁提示功能  
  如果在DELPHI中实现呢  
  谢谢 问题点数：20、回复次数：5Top

1 楼wzyamx（蝶恋花）回复于 2005-04-01 10:03:40 得分 5

可以你找第三方控件可以实现！！！  
  1stClassTop

2 楼heluqing（鉴之小河〖劳累求充实〗)(vcl .net）回复于 2005-04-01 10:05:15 得分 5

sui也可以的，好像有个叫msnpop...的东西...Top

3 楼skertone（）回复于 2005-04-01 11:49:06 得分 10

for   ii   :=   Low(FIconSearch)   to   High(FIconSearch)   do  
      begin  
          FIconSearch[ii]   :=   TIcon.Create;  
          FIconSearch[ii].Handle   :=   LoadIcon(Hinstance,PChar('SEARCH'   +   IntToStr(ii)));  
      end;  
      with   nid   do  
      begin  
          cbSize   :=   SizeOf(TNotifyIconData);  
          Wnd   :=   Handle;  
          uID   :=   526;  
          uFlags   :=   NIF_MESSAGE   OR   NIF_ICON   OR   NIF_TIP;  
          uCallbackMessage   :=   WM_USER   +   526;  
          hIcon   :=   FIconNormal.   Handle;  
          StrPCopy(szTip,'搜索服务器')  
      end;  
      Shell_NotifyIcon(NIM_ADD,@nid);  
   
  procedure   TfrmMain.timIconTimer(Sender:   TObject);  
  begin  
      with   nid   do  
      begin  
          hIcon   :=   FIconSearch[FIconPos].Handle;  
          StrPCopy(szTip,'搜索服务器...')  
      end;  
      Shell_NotifyIcon(NIM_MODIFY,@nid);  
      Inc(FIconPos);  
      if   FIconPos   >   High(FIconSearch)   then  
      FIconPos   :=   Low(FIconSearch);  
  end;  
   
   
  Top

4 楼whbo（王红波（年轻人，要有所作为））回复于 2005-04-01 12:14:03 得分 0

要简单点的标题闪动可以用flashwindow+timerTop

5 楼leguoguo（乐果果）回复于 2005-04-01 16:32:02 得分 0

偶的消息框是在一个FORM里面的  
  偶FORM最小化后，希望做到闪烁  
  不想用第三方控件Top

相关问题

• ficonsearch
• ficonpos
• 实现
• nif
• nid
• ii
• handle
• do begin

• 帖主：leguoguo
• wzyamx
• heluqing
• skertone

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载