Blinkendes Label

[Mystic]

fIntervall wird nie gesetzt? Mir scheint, Sharky hat nicht viel geschlafen.

Delphi-Quellcode:

constructor TShBlinkLabel.Create;
begin
  inherited;
  fAktiv := False;
  fIntervall := 500;
  fTimer := TTimer.Create(self);
  fTimer.OnTimer := OnTimer;
  fTimer.Interval := 500;
  fTimer.Enabled := fAktiv;
end; 

{ ... }

procedure TShBlinkLabel.SetIntervall(aValue: integer);
begin
  fTimer.Enabled := False;
  fTimer.Interval := aValue;
  fTimer.Enabled := True;
  fIntervall := aValue;
end;