TControlAlign (Delphi)

Description

Dynamically create a TProgressBar control and align it to the bottom of the form.

Code

var
  I: Integer;

procedure TForm1.Button1Click(Sender: TObject);
var
  ProgressBar: TProgressBar;
begin
  ProgressBar := TProgressBar.Create(Self);
  with ProgressBar do
  begin
    Parent := Self;
    Align := alBottom;
  end;
end;

Uses

• Vcl.Controls.TControl.Align ( fr | de | ja )
• Vcl.ComCtrls.TProgressBar.Create ( fr | de | ja )