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

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



Память: 0.46 MB
Время: 0.01 c