Lazarus BGRAFlashProgressBar nie pokazuje wyników tylko przeskakuje do samego końca ?

Z Podręcznik Administratora by OPZ SGU
Skocz do: nawigacja, szukaj

Załóżmy że mamy taki kod którego celem jest symulowanie flash progress bara:

var i:integer;
begin
BGRAFlashProgressBar1.maxvalue:=768*512;
for i := 0 to 768*512 do
    begin
     BGRAFlashProgressBar1.value := i;
    end;
end;   


Jeżeli go wykonamy, to aplikacja "zawiśnie" na chwilkę po czym pokaże proress bar na samym końcu... Spowodowane to jest tym że pętla nie czeka na wyśweitlenie rezultatu, tylko wykonuje się błyskawicznie.

Aby temu zaradzić należy dodać polecenie

Application.ProcessMessages;

Poprawny kod

var i:integer;
begin
BGRAFlashProgressBar1.maxvalue:=768*512;
for i := 0 to 768*512 do
    begin
     BGRAFlashProgressBar1.value := i;
     Application.ProcessMessages;
    end;
end;