Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.16;
Скачать: CL | DM;

Вниз

сложный вопрос по таймеру   Найти похожие ветки 

 
Igit ©   (2002-07-24 08:44) [0]

Может кто поможет разобраться как устроен таймер в делфи когда пишешь программу такую всю с красивостями(форма и всё такое не на API). Вот сам вопрос: Допустим есть у меня форма - Form1,
и два таймера - timer1 и timer2. в timer1 написано i:=i+1; его интервал 1000. в timer2 написано g:=g+1; его интервал 5000.
Вот как всё это работает, я думаю что создаются потоки с задержками, прав ли я, и как сделать подобное на API не используя модуля Forms?


 
Digitman ©   (2002-07-24 08:50) [1]

Исходник класса TTimer имеется ведь ! Самостоятельно разве не пытался ?


 
Юрий Зотов ©   (2002-07-24 09:31) [2]

Таймер Delphi никаких потоков не создает. Он создает скрытое окно, а затем вызывает API-шную SetTimer.

Без Forms Вы тоже можете использовать SetTimer (cм. в справке), но цикл выборки сообщений нужно будет сделать ручками.


 
bytebutcher ©   (2002-07-24 09:46) [3]

самостоятельным надо быть батенька - самостоятельным


 
DAO ©   (2002-07-24 10:39) [4]

Можно попробывать потоки. Сделать Thread и туда вставить код а так же задержку если необходимо Sleep. Хотя надо посмотреть на задачу конкретнее, т.к. не рекомендуеться делать потоки по пустякам!


 
Эмиль   (2002-07-24 16:11) [5]

Как отсчитать интервал времени без TTimer ?
procedure Delay(ms : longint);
var
TheTime : LongInt;
begin
TheTime := GetTickCount + ms;
while GetTickCount < TheTime do
begin
.....
{полезный код если надо что-то делать}
.....
Application.ProcessMessages;
end;
end;


 
Igit ©   (2002-07-25 01:27) [6]

Блин, я понял правду - мне ещё долго расти дo API



Страницы: 1 вся ветка

Текущий архив: 2002.09.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
1-50663
Yakudza
2002-09-02 14:09
2002.09.16
OpenXML


1-50674
YAndrey
2002-09-02 15:08
2002.09.16
Хелп!!! Что за глюка с прерыванием !!! TP7


14-50954
AL2002
2002-08-19 13:27
2002.09.16
Отдельная ветка для дебилов


1-50853
Filat
2002-09-02 13:00
2002.09.16
Срочно!!! Delphi 6 и VG Library как подружить?


3-50644
savva
2002-08-23 14:26
2002.09.16
Блокировка файла не возможна - что это и с чем едят:))