BlinkLabel Komponente erstellen - Blink Problem

[Sharky]

Alternativ kannst Du auch einfach im OnTimer-Egeigniss prüfen:

Delphi-Quellcode:

procedure TMJBLinkLabel.OnTimerEvent(Sender: TObject); 
begin 
  if not (csDesigning in ComponentState) then
  begin
    FBlinkValue:=not FBlinkValue;   //in dieser Prozedur liegt das Problem 
    If FBlink then           //wird schon zur Entwurfszeit ausgeführt, wenn Blink True ist 
    begin                          //ich möchte es aber erst zur Laufzeit Blinken sehen 
      TmpColor:=Font.Color; 
      TmpStyle:=Font.Style; 
      Font.Color:=FBlinkFontColor; 
      Font.Style:=FBlinkFontStyle; 
    end 
   else 
    begin 
      Font.Color:=TmpColor; 
      Font.Style:=TmpStyle; 
    end;
  end;
end;