[dr. F.I.N.]

Сообщение от Winny

1)Кидаешь на форму два таймера, один называешь Timer1, а другой Timer2, и кидаешь один Label. У Timer1 ставишь Interval на 500, а у Timer2 ставишь Interval на 1000. И вот код для Timer1:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Font.Style:=Label1.Font.Style+[fsBold];
Timer1.Enabled:=false;
Timer2.Enabled:=true;
end;

Вот код для Timer2:

Код:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Label1.Font.Style:=Label1.Font.Style-[fsBold];
Timer1.Enabled:=true;
Timer2.Enabled:=false;
end;

end.

Тут ты меня просто убил! Нафига 2 таймера? А завести глобальную переменную IsBlind: Boolean; никак?.

Код:

var
  IsBlind: Boolean = false;
...
implementation
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  with Label1.Font do
  case IsBlind of
  true: 
    begin
      Style := Style+[fsBold];
      Color := clRed;
    end;
  false:
    begin
      Style := Style-[fsBold];
      Color := clBlack;
    end;
  end;
  IsBlind := not IsBlind;
end;
...
end.