| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls;
type
TForm1 = class(TForm)
StatusBar1: TStatusBar;
Button1: TButton;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
PB: TProgressBar;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
PB := TProgressBar.Create(StatusBar1);
PB.Max := 50;
PB.Position := 0;
PB.Visible := True;
PB.Top := 2;
PB.Height := STatusBar1.Height-4;
PB.Width := STatusBar1.Panels[1].Width-2;
PB.Left := STatusBar1.Panels[0].Width+2;
PB.Parent := StatusBar1;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not Assigned(PB) then Exit;
if PB.Position = PB.Max
then PB.Position := 0
else PB.Position := PB.Position+1;
end;
end.
|
|
