Progressbar inside Button? No problem

16 Apr

Progressbar inside Button? No problem

It’s quite cool efect, but this is also effective way to save some space in your application GUI. Let’s place progressbar of some time-consuming function right into the button, which started this function.
Place Button and Progressbar components on a form and set Visible property of Progressbar to False. Now, use the following code to do the magic.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    ProgressBar1: TProgressBar;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  ProgressBar1.Parent := Button1;
  ProgressBar1.Width := Button1.Width - 7;
  ProgressBar1.Height := Button1.Height - 7;
  ProgressBar1.Left := 3;
  ProgressBar1.Top := 3;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i : byte;
begin
  Button1.Enabled := false;
  if ProgressBar1.Visible then Exit;
  ProgressBar1.Position := 0;
  ProgressBar1.Visible := True;
 
  //replace with real code-----------
  for i := 0 to 99 do
  begin
    Sleep(100);
    ProgressBar1.Position := ProgressBar1.Position + 1;
    Application.ProcessMessages;
  end;
  //---------------------------------
 
  ProgressBar1.Visible := False;
  Button1.Enabled := true;
end;
 
end.

When you press the Button, the Progressbar will be set to visible (disabling the button itself). When the time-consuming function is over, the button will be reenabled again and progressbar will be set to invisible state.