until not GetMessage(msg, 0, 0, 0);

← →
kex86 © (2003-03-07 06:42) [0]

Есть такой блок:

program ....
uses ....
var hc:hdc;
....
....
procedure sc;
var dt:Tdatetime;
rrr:integer;
begin
dt:=now;
randomize;
while dt+strtotime("00:01")>now do
setpixel(dc,random(screen.Width),random(screen.Height),random($FFFFFF))
end;
....
procedure Timer;
begin
if .... then sc;
end;
....

begin
....
DC:=GetDC(0);
repeat
Timer;
until not GetMessage(msg, 0, 0, 0);
ReleaseDC(0, DC);
end.

Почему-то до блока sc доходит только один раз при нужных условиях, то есть один раз он рисует, а другие-нет.

← →
Suntechnic © (2003-03-07 07:27) [1]

Почему-то до блока sc доходит только один раз при нужных условиях, то есть один раз он рисует, а другие-нет.

А что должна?... Это первое, что риходит на ум после прочтения данного вопроса. Уважайте посетителей данного форума, выражайтесь яснее!

until not GetMessage(msg, 0, 0, 0); Найти похожие ветки