请各位高手帮帮忙,如何可以做到像QQ哪样有消息来图标的闪烁的问题? 请各位高手帮帮忙,如何可以做到像QQ哪样有消息来图标的闪烁的问题? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用trayicon控件吧,如果你没有,可以留下Email,我发给你。 是系统托盘里的图标吗?一个Timer,两个图标TForm1 = class(TForm) Timer1: TTimer;private icon: array[0..1] of TIcon;//闪烁效果就是两个图标交替显示 IconIndex: integer; //图标索引 nid: TNotifyIconData;end;procedure TForm1.FormCreate;begin icon[0] := TIcon.Create; icon[1] := TIcon.Create;//自己读两个图标 IconIndex := 0; //先用第一个图标 nid.cbSize := SizeOf(nid); nid.hIcon := icon[0].Handle; nid.uFlags := NIF_ICON; Shell_NotifyIcon(NIM_ADD, @nid);end;//先让Timer1.Enabled := false;自己决定什么时候闪就让//Timer1.Enabled := true;procedure TForm1.Timer1Timer;begin IconIndex := 1 - TimerIndex; //反正就是1,0切换 nid.hIcon := icon[IconIndex].Handle; Shell_NotifyIcon(NIM_MODIFY, @nid);end; 比如说有20个用户,例如像在Treeview中,我想要的是像QQ哪样用户列表中的哪样,哪个用户有信息发过来,就哪个图标就在Treeview闪烁.. pengxuan(追梦人)能给我发一个吗,EMAIL:[email protected]谢谢了 感知控件问题,两个DBCheckBox,? 远程导入数据的问题? ScrollBar组件问题!!! 用sleep时,如果让正常显示更新? 救急————〉关于安装程序的制作(斑竹,救我) 高分!!!熟悉SPCOMM的请进 求CRC_CCITT校验的计算结果 dx快来看看delphi如何将系统时间转换成UTC时间 求取中文发音控件! 小问题,在Delphi中怎样用winAPI函数SHELLEXECUTE调用文件 DataSet的Filter为什么支持Like不支持not like? 打开TOpenDialog的Filter属性编辑框的函数是哪个(如同IDE中的)?Thx.
一个Timer,两个图标TForm1 = class(TForm)
Timer1: TTimer;
private
icon: array[0..1] of TIcon;//闪烁效果就是两个图标交替显示
IconIndex: integer; //图标索引
nid: TNotifyIconData;
end;procedure TForm1.FormCreate;
begin
icon[0] := TIcon.Create;
icon[1] := TIcon.Create;
//自己读两个图标
IconIndex := 0; //先用第一个图标
nid.cbSize := SizeOf(nid);
nid.hIcon := icon[0].Handle;
nid.uFlags := NIF_ICON;
Shell_NotifyIcon(NIM_ADD, @nid);
end;//先让Timer1.Enabled := false;自己决定什么时候闪就让
//Timer1.Enabled := true;procedure TForm1.Timer1Timer;
begin
IconIndex := 1 - TimerIndex; //反正就是1,0切换
nid.hIcon := icon[IconIndex].Handle;
Shell_NotifyIcon(NIM_MODIFY, @nid);
end;
能给我发一个吗,
EMAIL:[email protected]
谢谢了