Показать сообщение отдельно
  #4  
Старый 23.05.2009, 21:10
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

После того как поместите TTimer на форму установите в нем значение Interval = 60000, что соответствует 1 минуте. И выставите значение Enabled = True. Теперь с периодичность в 1 минуту у вас будет вызываться событие OnTimer в котором вы просто организуете вывод в (видимо в мемо) ваших данных думаю будет где-то так:
Код:
procedure TForm24.Timer1Timer(Sender: TObject);
begin
 case ComboIndex
 of 1: Memo1.Lines.Add(ComboBox1.Text);
     2: Memo1.Lines.Add(ComboBox2.Text);
     3: Memo1.Lines.Add(ComboBox3.Text);
     4: Memo1.Lines.Add(ComboBox4.Text);
 end;
 Inc(ComboIndex);
 if ComboIndex > 4 then ComboIndex := 1;
end;
переменную ComboIndex сделайте глобальной и инициализируете при создании формы.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием