Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c
8-50868
Suroga
2002-01-17 20:09
2002.09.16
Озвучивание времени


3-50603
Gaber
2002-08-26 10:57
2002.09.16
Русский шрифт в Database Desktop


1-50718
DN
2002-09-02 15:28
2002.09.16
Работа с файлами


1-50833
Dmitry1
2002-09-04 09:54
2002.09.16
Аналог функции барсика - format


1-50856
Shil
2002-09-04 16:35
2002.09.16
TServise OnStart, не хочет открывать файл?




   Наверх