Цитата:
|
Сообщение от osminog
лежит (((
нашел ошибку:
убрал в type строчку procedure Image3Click(Sender: TObject);
добавил туда procedure Timer1Timer(Sender: TObject);
а в свойство картинки в вкладке events OnClick=Timet1Timer
но реакция по времени нулевая, как-будто нет таймера (((
|
Ндя... А причём тут картинка Image3 и его событие OnClick ? Речь вроде идёт о таймере?
Ещё раз:
1) Нужно положить таймер на форму.
2) Изменить его свойство Interval на 3000 (т.е. 3 секунды)
3) Дважды щёлкнуть по таймеру - появится заготовка события - вот такая:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
end;
4) Эту заготовку заменить на тот код который я привела.
5) Запустить программу на выполнение и наблюдать как всё нормально работает.