Автор Тема: Вопрос про таймер Delphi  (Прочитано 3142 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн berkut_174

  • Постоялец
  • ***
  • Сообщений: 135
    • Просмотр профиля
Вопрос про таймер Delphi
« : 01 Ноября 2012, 16:52:09 »
Нужно сделать прогу с возможностью переключения на аналоговые часы и цифровые.
Все отрисовывает, но не могу разобраться с таймером, как мне его заставить время двигать ?
Ну т.е. если я по таймеру на форме дважды щелкаю, и там пишу например Edit1.Text:=TimeToStr(now); то все работает, а если в другую процедуру вставить, то не работает. просто этой же командой время берет и не двигается. стоит. Как мне заставить часы двигаться ?
Спасибо.
Сноси Винду — переходи на Линукс :-)

Оффлайн berkut_174

  • Постоялец
  • ***
  • Сообщений: 135
    • Просмотр профиля
Re: Вопрос про таймер Delphi
« Ответ #1 : 01 Ноября 2012, 16:59:05 »
Ну вот для цифровыхprocedure TForm1.N2Click(Sender: TObject);
begin
Edit1.Text:=TimeToStr(now);
N2.Checked:=true;
N1.Checked:=false;
end;
что тут нужно добавить ?
Подскажите, пожалуйста.
Сноси Винду — переходи на Линукс :-)

Оффлайн berkut_174

  • Постоялец
  • ***
  • Сообщений: 135
    • Просмотр профиля
Re: Вопрос про таймер Delphi
« Ответ #2 : 01 Ноября 2012, 19:19:19 »
Решил проблему, использовав два таймера.
Сноси Винду — переходи на Линукс :-)


Оффлайн berkut_174

  • Постоялец
  • ***
  • Сообщений: 135
    • Просмотр профиля
Re: Вопрос про таймер Delphi
« Ответ #4 : 11 Ноября 2012, 12:47:15 »
Подскажите, пожалуйста ещё в одном вопросе.
Аналоговые часы отрисовываю как здесь ссылка (Компоненты Timer и PaintBox) только со всеми делениями. Организовал также через процедуру в разделе public. Еще мне нужно сделать часы в другом часовом поясе, делаю на новой форме. Вопрос: как мне процедуру из раздела public на 1 форме вызвать на второй форме ?
И еще: при отрисовке аналоговых часов, процедура не успевает за одну секунду видимо отрисовать полностью все часы, из-за этого часы немного помаргивают, можно ли как то это решить ?
Спасибо.
Сноси Винду — переходи на Линукс :-)

Оффлайн berkut_174

  • Постоялец
  • ***
  • Сообщений: 135
    • Просмотр профиля
Re: Вопрос про таймер Delphi
« Ответ #5 : 11 Ноября 2012, 12:51:35 »
Решил проблему, использовав два таймера.
Кстати, при помощи условий засунул в один таймер :)
Сноси Винду — переходи на Линукс :-)

Оффлайн berkut_174

  • Постоялец
  • ***
  • Сообщений: 135
    • Просмотр профиля
Re: Вопрос про таймер Delphi
« Ответ #6 : 11 Ноября 2012, 15:18:48 »
Переделал, рисую деления не от центра с перекрытием кругом после, а от окружности к центру, так меньше заметно мерцание.
Сноси Винду — переходи на Линукс :-)

Оффлайн berkut_174

  • Постоялец
  • ***
  • Сообщений: 135
    • Просмотр профиля
Re: Вопрос про таймер Delphi
« Ответ #7 : 11 Ноября 2012, 15:51:28 »
Процедура отрисовки аналоговых часов есть.
Как мне применить эту процедуру к нескольким элементам PaintBox ?
То есть у меня два элемента PaintBox, на один мне нужно выводить одно время, на второй другое. В процедура описана для PaintBox1, а как на PaintBox2 прикрутить эту процедуру ? Или только такую же описывать, но только для второго ? Получается в процедуре PaintBox нужно обозначить как то за переменную, как ?
Спасибо.
Сноси Винду — переходи на Линукс :-)

Оффлайн berkut_174

  • Постоялец
  • ***
  • Сообщений: 135
    • Просмотр профиля
Re: Вопрос про таймер Delphi
« Ответ #8 : 11 Ноября 2012, 22:51:31 »
Тороплюсь с вопросами... :)
procedure TForm1.DrawClock(t: TTime; PaintBox:TPaintBox); — решение моей проблемы.
Передаю нужный параметр при вызове процедуры.
Теперь одна процедура.
Решено.
Сноси Винду — переходи на Линукс :-)

 

Вопрос по Compaq Visual Fortran

Автор Fencer

Ответов: 12
Просмотров: 2360
Последний ответ 10 Ноября 2011, 18:48:58
от Selyd
Простенький вопрос по Matlab

Автор Lerk

Ответов: 0
Просмотров: 2021
Последний ответ 15 Марта 2010, 10:01:45
от Lerk
Маленький вопрос по SQL

Автор Astro

Ответов: 4
Просмотров: 2153
Последний ответ 11 Февраля 2010, 18:41:29
от InfStudent
Создание фигур разного цвета при нажатии на 2 кнопки(Delphi)

Автор PandaPivovar

Ответов: 2
Просмотров: 4255
Последний ответ 01 Декабря 2009, 23:46:57
от PandaPivovar
Задание по Delphi (при введении данных возникает ошибка)

Автор PandaPivovar

Ответов: 9
Просмотров: 4260
Последний ответ 29 Ноября 2009, 15:55:57
от PandaPivovar