He hecho lo que tu dices, proyecto nuevo, 2 button y un progressbar, el codigo y el resultado es el mismo, no llega al 100%.
Si pongo el repaint, si que funciona pero el tiempo se multiplica. Me puedes pasar tu exe compilado, a ver si es problema de compilacion o de procesador o tarjeta grafica.
Si puedes mandamelo a esta direccion
xxxxxx@xxxxxx.xx
2 botones y y progress bar, esta es la Unit tal cual
Código Delphi
[-]
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
pgbfile: TProgressBar;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i, j : integer;
begin
pgbfile.Min := 1;
pgbfile.Max := 100000;
for j := 1 To 5 do
begin
for I := 1 To 100000 do
begin
pgbfile.Position := I;
pgbfile.repaint;
end;
sleep(1000);
end;
showmessage( 'fin');
end;
procedure TForm1.Button2Click(Sender: TObject);
var i, j : integer;
begin
pgbfile.Min := 1;
pgbfile.Max := 100000;
for j := 1 To 5 do
begin
for I := 1 To 100000 do
begin
pgbfile.Position := I;
Application.ProcessMessages;
end;
sleep(1000);
end;
showmessage( 'fin');
end;
end.
Gracias.