要求实现想QQ,MSN那样,界面最小化后,如果消息来了后,能闪烁提示功能
如果在DELPHI中实现呢
谢谢

解决方案 »

  1.   

    可以你找第三方控件可以实现!!!
    1stClass
      

  2.   

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

  3.   

    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;
      

  4.   

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

  5.   

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