:/
Witam Na formie mam obiekt Shape który dla przykładu zmienia kolor na losowy. Uruchamiam to jako oddzielny wątek i wszystko jest ok do momentu kiedy kliknę na górny pasek okna. Wówczas zmiana kolorów Shape zatrzymuje się do momentu aż nie puszczę przycisku myszki lub nie przeciągnę okna. Przy rozciąganiu okna program działa prawidłowo. Wygląda tak jakby tylko obiekt Shape na ten czas przestawał wyświetlać, pętla pracuje nieprzerwanie. Proszę o poradę jak pozbyć się tego problemu. Poniżej mój kod programu.
procedure TForm1.start;
var i: integer;
begin
for i := 1 to 5000 do
begin
form1.Caption := inttostr(i);
shape1.Brush.Color:=rgb(random(255),random(255),random(255));
sleep(10);
end;
end;