Technology Learning

导航

定时器实现图像闪烁

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Image1.Visible=true then
    Image1.Visible:=false
    else
    Image1.Visible:=true;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Interval:=StrToInt(Edit1.Text);
  Timer1.Enabled:=true;
end;

posted on 2010-04-07 21:18  浔阳渔夫  阅读(364)  评论(0编辑  收藏  举报