таймер

[Tema_666]

На форме есть combobox и при выборе второго варианта в нем должен запустится таймер и при достижении значения в 15 минут строчка из combobox должна моргать. как это сделать? кто что посоветует?

[Stilet]

ХМ... Моргать должна строчка в выпадающем списке или текстовое его поле?
Как бы там ни было можно попробовать создать два таймера. Один на 15 минут поставить, а второй запускать по срабатыванию первого. во втором инициировать отрисовку комбика с изменением цвета. Муторно но можно.

[Tema_666]

там есть лейбел можно сделать что бы он моргал без разницы, лишь бы эффект какойто был

[RUSlan48]

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

там есть лейбел можно сделать что бы он моргал без разницы, лишь бы эффект какойто был

чтобы label моргал разными цветами можно так попробовать:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if ComboBox1.ItemIndex=1 {счёт идёт с 0} then begin
    Timer1.interval:=15*60*1000; {15 мин в мс}
    Timer1.enabled:=true;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//по истечении 15 минут выкл Timer1 и вкл Timer2
  Timer1.enabled:=false;
  Timer2.interval:=1000; {время задержки при мигании}
  Timer2.enabled:=true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var a:boolean;
begin
    a:=not a;
    if a then label1.Font.Color:=clGreen {один цвет} else
      label1.Font.Color:=clRed; {другой цвет}
end;

[phomm]

procedure ...
var a:boolean;
begin
    a:=not a;
... 
end;

не смешно, а должно быть глобальным

[RUSlan48]

да бред, я согласен))
извиняюсь...

procedure TForm1.Timer2Timer(Sender: TObject);
begin
    if label1.Font.Color<>clGreen then label1.Font.Color:=clGreen {один цвет} else
      label1.Font.Color:=clRed; {другой цвет}
end;

[Моторокер]

Можно и один таймер без глобальных переменных использовать, если задействовать Tag типа этого:

if Timer1.Tag=0 then begin // сработал через 15 минут
  Timer1.Tag:= 1;
  Timer1.Interval:= 500; // уменьшаем интервал для мигания
end;
if abs(Timer1.Tag)=1 then begin // если 1 или -1, значит мигаем
  Timer1.Tag:= - Timer1.Tag;
  if Timer1.Tag=1 then
    Label1.Color=clRed
  else 
    Label1.Color=clWindowText;
end;