Button после выполнения ProgressBar

[}{oт@бь)ч]

Здраствуйте хочу спросить!
Мне нужно зделать так чтобы пока ProgressBar на кнопку button нельзя было нажать
Но как только ProgressBar закончился кнопка была доступной тоесть чтобы уже можно на нее было нажать!
Вот сам код!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, ComCtrls, XPMan, StdCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    XPManifest1: TXPManifest;
    ProgressBar1: TProgressBar;
    Label1: TLabel;
    Timer1: TTimer;
    Button1: TButton;
    procedure ProgressBar1Exit(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ProgressBar1Exit(Sender: TObject);
begin
Close
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+1;

end;

end.

[FaTaL]

Сообщение от }{oт@бь)ч

Здраствуйте хочу спросить!
Мне нужно зделать так чтобы пока ProgressBar на кнопку button нельзя было нажать
Но как только ProgressBar закончился кнопка была доступной тоесть чтобы уже можно на нее было нажать!
Вот сам код!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, ComCtrls, XPMan, StdCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    XPManifest1: TXPManifest;
    ProgressBar1: TProgressBar;
    Label1: TLabel;
    Timer1: TTimer;
    Button1: TButton;
    procedure ProgressBar1Exit(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ProgressBar1Exit(Sender: TObject);
begin
Close
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+1;

end;

end.

В начале процедуры сделай кнопку Enable := false;
В конце заполнения ПрогрессБара сделай Enable := true;

[}{oт@бь)ч]

А поподробнее можно что именно и куда
Я понял так
Form1.ProgressBar1.Position:=Form1. ProgressBar1.Position+1;
Enable := true;

[goblinyara]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
button1.Enabled:=false;
progressbar1.Position:=progressbar1.Position+1;
if progressbar1.Position=progressbar1.Max then
begin
  button1.Enabled:=true;
  timer1.Enabled:=false;
end;
end;

[}{oт@бь)ч]

Спасибо большое!

[QunneD]

Вот лови пример

[QunneD]

Опоздал...

[goblinyara]

QunneD, бывает