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

Question

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

Answer 1

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

Answer 2

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

Answer 3

用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;