spunit1.pas

这是一个Delphi很好很全面知识的实例

unit SPUnit1;

interface

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

type
  TSPForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Gauge1: TGauge;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  SPForm: TSPForm;
  I:integer;  //设置进度条的进度变量
implementation



{$R *.dfm}

procedure TSPForm.Timer1Timer(Sender: TObject);

begin
   i:=i+5;
   gauge1.Progress:=gauge1.Progress+5;//让进度条行走
   if i=Timer1.Interval then   // 让进度条的进度与Timer1的时间相等
        Timer1.Enabled:=false;
end;

end.