bild blinken

[Bummi]

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  // Timer1.intervall drehen
  Timer1.Tag := 0;
  Image1.Visible := false;
  Timer1.Enabled := true;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  Timer1.Tag := Timer1.Tag + 1;
  if Timer1.Tag > 10 then  // hier drehen
    begin
      Image1.Visible := not Image1.Visible;
    end;
end;