Вопрос про таймер Delphi

[berkut_174]

Нужно сделать прогу с возможностью переключения на аналоговые часы и цифровые.
Все отрисовывает, но не могу разобраться с таймером, как мне его заставить время двигать ?
Ну т.е. если я по таймеру на форме дважды щелкаю, и там пишу например Edit1.Text:=TimeToStr(now); то все работает, а если в другую процедуру вставить, то не работает. просто этой же командой время берет и не двигается. стоит. Как мне заставить часы двигаться ?
Спасибо.

[berkut_174]

Ну вот для цифровых

Код: [Выделить]

procedure TForm1.N2Click(Sender: TObject);
begin
Edit1.Text:=TimeToStr(now);
N2.Checked:=true;
N1.Checked:=false;
end;что тут нужно добавить ?
Подскажите, пожалуйста.

[berkut_174]

Решил проблему, использовав два таймера.

[tig81]

молодец!

[berkut_174]

Подскажите, пожалуйста ещё в одном вопросе.
Аналоговые часы отрисовываю как здесь ссылка (Компоненты Timer и PaintBox) только со всеми делениями. Организовал также через процедуру в разделе public. Еще мне нужно сделать часы в другом часовом поясе, делаю на новой форме. Вопрос: как мне процедуру из раздела public на 1 форме вызвать на второй форме ?
И еще: при отрисовке аналоговых часов, процедура не успевает за одну секунду видимо отрисовать полностью все часы, из-за этого часы немного помаргивают, можно ли как то это решить ?
Спасибо.

[berkut_174]

Решил проблему, использовав два таймера.

Кстати, при помощи условий засунул в один таймер

[berkut_174]

Переделал, рисую деления не от центра с перекрытием кругом после, а от окружности к центру, так меньше заметно мерцание.

[berkut_174]

Процедура отрисовки аналоговых часов есть.
Как мне применить эту процедуру к нескольким элементам PaintBox ?
То есть у меня два элемента PaintBox, на один мне нужно выводить одно время, на второй другое. В процедура описана для PaintBox1, а как на PaintBox2 прикрутить эту процедуру ? Или только такую же описывать, но только для второго ? Получается в процедуре PaintBox нужно обозначить как то за переменную, как ?
Спасибо.

[berkut_174]

Тороплюсь с вопросами...
procedure TForm1.DrawClock(t: TTime; PaintBox:TPaintBox); — решение моей проблемы.
Передаю нужный параметр при вызове процедуры.
Теперь одна процедура.
Решено.