следующая тема »

[19 Июль 2025, 12:58:22]

Новости, реклама:

[19 Июль 2025, 12:58:22]

Новости, реклама:

[Shura]

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  for i := 1 to 100 do begin
    StatusBar1.Panels[0].Text := IntToStr(i);
    StatusBar1.Refresh;
    sleep(100);
  end;
end;

Вместо всяких рефрешей и слипов делается Application.ProcessMessages();

Кидайте вы дельфи, не очень перспективное направление. Я бы не выбирал эту среду для работы.