【控件功能】我来做练习-第36课-Delphi status bar example

Delphi status bar example

提示：状态栏的进度条

核心源码

`
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := not Timer1.Enabled;
end;

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

procedure TForm1.FormCreate(Sender: TObject);
begin
// Set parent to StatusBar1
// Do this for all the controls we want to put in the StatusBar
LinkLabel1.Parent := StatusBar1;
ProgressBar1.Parent := StatusBar1;
end;

procedure TForm1.LinkLabel1LinkClick(Sender: TObject; const Link: string;
LinkType: TSysLinkType);
begin
// Open link
ShellExecute(Handle, ‘open’, PWideChar(Link), nil, nil, SW_SHOWNORMAL);