欢迎UP,如何显示动态图标就是图标闪烁(是标题栏上的图标) UP有分!!

欢迎UP,如何显示动态图标就是图标闪烁(是标题栏上的图标)   UP有分!! 问题点数：100、回复次数：11Top

1 楼extreme0001（Edward）回复于 2002-10-12 14:01:03 得分 1

upTop

2 楼learnerX（null）回复于 2002-10-12 14:06:48 得分 2

upTop

3 楼realist（现实）回复于 2002-10-12 14:07:41 得分 1

不会呀！upTop

4 楼millsyys（）回复于 2002-10-12 14:12:13 得分 1

upTop

5 楼blazingfire（烈焰)(对.net极度憎恨中....）回复于 2002-10-12 14:13:36 得分 40

用一个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;Top

6 楼blazingfire（烈焰)(对.net极度憎恨中....）回复于 2002-10-12 14:15:05 得分 10

procedure   TForm1.FormClose(Sender:TObject);  
  begin  
      ico.Free;  
  endTop

7 楼lfausten（铁拳）回复于 2002-10-12 14:16:25 得分 1

没错，只要你不怕麻烦，就加一个时间控制器，不过没有很大的意义Top

8 楼Alexs（木头）回复于 2002-10-12 14:17:33 得分 2

up,祝好运Top

9 楼zmacro（zmacro）回复于 2002-10-12 14:18:02 得分 1

upTop

10 楼zdcnow（磁效应）回复于 2002-10-12 14:38:28 得分 40

用getcaretblinktime和flashwindow()就搞定了。  
   
  这样写：  
   
  //控制是否闪动  
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
      timer1.Interval:=getcaretblinktime;  
      timer1.Enabled:=not   timer1.Enabled;  
  end;  
  //闪动  
  procedure   TForm1.Timer1Timer(Sender:   TObject);  
  begin  
      flashwindow(form1.Handle,true);  
  end;  
  Top

11 楼hongqi162（失踪的月亮）回复于 2002-10-12 15:51:27 得分 1

upTop

相关问题

• 图标
• icoindex
• timer
• ico
• tobject
• procedure tform
• sender
• begin

• 帖主：bengbeng24
• extreme0001
• learnerX
• realist
• millsyys
• blazingfire
• blazingfire
• lfausten
• Alexs
• zmacro
• zdcnow
• hongqi162

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