Текущий архив: 2002.09.23;
Скачать: CL | DM;
Вниз
Application.processmesages в программе без форм Найти похожие ветки
← →
RV © (2002-09-12 11:01) [0]форму выкинул
В процедуре Delay
Application.ProcessMessages
нужно чем-то подходящим заменить
procedure Delay(ms : longint);
var
TheTime : LongInt;
begin
TheTime := GetTickCount + ms;
while GetTickCount < TheTime do begin
Sleep(60);
Application.ProcessMessages;
end;
end;
begin
CZad:=0;
repeat
Delay(200);
GetN;
until false;
end.
спасибо
← →
Song © (2002-09-12 11:08) [1]Открой исходники TApplication да посмотри как там сделана выборка сообщений из очереди.
← →
Romkin © (2002-09-12 11:13) [2]MsgWaitForMultipleObjects & GetMessage (м.б. timeSetEvent)
Можно и просто окно создать, для обработки сообщений, это довольно удобно. Пример - TThreadWindow.
← →
Старый Паскалист (2002-09-12 11:19) [3]Вопрос - а нужно ли тебе обрабатывать сообщения
во время Delay? - Может, просто выкинуть оттуда
Application.ProcessMessages и всех делов?
← →
Старый Паскалист (2002-09-12 11:27) [4]Потому как в програмах с формами это нужно, в основном, для
того, чтобы программа не создавала впечатление зависшей
(форма смогла перерисоваться в случае необходимости, мышью можно было потаскать).
← →
RV © (2002-09-12 11:35) [5]Старый Паскалист (12.09.02 11:27)
точно, вообще не нужно :), спасибо.
дело в том, что сначала писал с формой (удобно отлаживать), а потом по инерции все стал переносить в "бесформенный" вариант...
← →
Старый Паскалист (2002-09-12 11:40) [6]Собственно, тогда вообще одним слипом можно отделаться :)
Страницы: 1 вся ветка
Текущий архив: 2002.09.23;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.012 c
