Label nach Edit1.Text blinken lassen

[ManuMF]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Visible := not Label1.Visible;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Interval := 60000 DIV (2 * StrToIntDef(Edit1.text, 1));
end;

funktioniert bei mir bestens.
Bedenke: Damit es z.B. einmal pro Sekunde blinkt, musst du 60 in das Edit eingeben (60sek = 1 min).

Gruß,
ManuMF