Hallo,
Delphi-Quellcode:
procedure TShBlinkLabel.SetAktiv(aValue: boolean);
begin
fAktiv := aValue;
fTimer.Enabled := aValue;
if not (aValue) then
Visible := true;
end;
Die beiden Zeilen sollten noch hinzugefügt werden, damit das Label nicht unsichtbar bleibt, wenn es in diesem Moment gerade "ausgeschaltet" wird.
Gruß,
ManuMF