如何使桌面右下角的小图标闪烁???急!!!!!!!!!!!!!!! 如何使桌面右下角的小图标闪烁??? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用一个TTimer和一个TImageList就可了在TTimer的OnTimer中写: private ico:TIcon; IcoIndex:Integer; ...procedure TForm1.FormCreate(Sender:TObject);begin ico:=TIcon.Create; icoIndex:=0; Timer1.OnTimer(Timer1);end;procedure TForm1.Timer1Timer(Sender:TObject);begin if icoIndex:=0 then icoIndex:=1 else icoIndex:=0 ImageList.GetIcon(icoIndex,Ico); Application.Icon:=ico;end; 同意楼上的、如果用TRAYICON,做法也一样 http://www.csdn.net/cnshare/soft/12/12349.shtm 调用Windows的Api函数不知道行不行,以前好像看到过 所有WINDOW程序到了最底层不就都是API的调用了吗?实现这类功能的控件当然也是调用API咯!不过这类帖子太多了,还是学会自己获取信息吧! 急:请大家翻译几行代码 (在线等) 程序執行後沒有可執行程序出現的問題 delphi转换webbrowser中的postdata为可识别数据 餐饮项目,寻兼职开发 请您给个建议 简单的数据库比较计算问题,直接给代码我就给300分 Delphi7中TcpServer和TcpClient如何实现通信? 为什么我的IdSMTP发不了E-mail 找 IEEE 双精度浮点数据格式的资料 请问这些是用什么软件锁定了源代码文件,请求解锁方法? 关于用delphi的AdO向oracal数据库中提交的问题 高手请进:delphi与excel关联的问题
在TTimer的OnTimer中写:
private
ico:TIcon;
IcoIndex:Integer;
...procedure TForm1.FormCreate(Sender:TObject);
begin
ico:=TIcon.Create;
icoIndex:=0;
Timer1.OnTimer(Timer1);
end;procedure TForm1.Timer1Timer(Sender:TObject);
begin
if icoIndex:=0 then
icoIndex:=1
else
icoIndex:=0
ImageList.GetIcon(icoIndex,Ico);
Application.Icon:=ico;
end;