Einzelnen Beitrag anzeigen

Benutzerbild von Martin K
Martin K

Registriert seit: 20. Okt 2005
919 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: BlinkLabel Komponente erstellen - Blink Problem

  Alt 17. Jun 2006, 19:32
Hi,

mit:
if csDesigning in ComponentState du kannst einfach überprüfen, ob sich dein Programm gerade in der Designzeit oder Laufzeit befindet.

Mein Vorschlag, einfach im Constructor:
FTimer.Enabled := not (csDesigning in ComponentState); Das müsste eigentlich funktionieren....


//Edit:
Sehe gerade, dass du den Timer in SetBlink aktivierst - dann müsstest du den Code so abändern:
Delphi-Quellcode:
procedure TMJBlinkLabel.SetBlink(Value: Boolean);
begin
If FBlink <> Value then
  begin
   FBlink:=Value;
   FTimer.Enabled:=Value and not (csDesigning in ComponentState);
  end;
end;
Mit den Menschen ist es wie mit Computern -
es gibt Nullen und Einsen.
  Mit Zitat antworten Zitat