How To Make An Animated Application Icon | |||
| |||
var icon1:Boolean; ... procedure TForm1.Timer1Timer(Sender: TObject); begin if icon1=false then begin Application.icon:=Image1.Picture.Icon; icon1:=true; end else begin Application.icon:=Image2.Picture.Icon; icon1:=false; end; end; procedure TForm1.FormCreate(Sender: TObject); begin icon1:=true; end; Tags: Animated Application Icon Animated Icon Delphi | |||
| |||
| |||
Login for comment |