Foros Club Delphi - Parpadear imagen con Timer

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)

- - Parpadear imagen con Timer (https://www.clubdelphi.com/foros/showthread.php?t=83614)

RolyH7

07-07-2013 03:48:23

Parpadear imagen con Timer

Hola a todos, se que esto es facil pero ya llevo rato intentado hacerlo y no puedo.
alguien sabe hacer parpadear una imagen con timer? :confused:

AndrecitoPz

07-07-2013 04:09:14

Probaste con sto???

Código:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if image1.Visible = true then begin

  image1.Visible := False

end else if image1.Visible = false then begin

  image1.Visible := true;

  end;

end;

RolyH7

07-07-2013 06:15:06

Muchas Gracias!, joder era super facil, :eek: jeje

Casimiro Notevi

07-07-2013 10:48:37

Lo puedes abreviar un poco:

Código Delphi [-]procedure TForm1.Timer1Timer(Sender: TObject);
begin
  image1.Visible := not image1.Visible;
end;

La franja horaria es GMT +2. Ahora son las 05:16:41.