unitprocess.pas

来自「仓储系统」· PAS 代码 · 共 59 行

unit UnitProcess;

interface

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

type
  TfrmProcess = class(TForm)
    Bevel1: TBevel;
    Panel1: TPanel;
    Label2: TLabel;
    Bevel2: TBevel;
    Panel3: TPanel;
    Gauge1: TGauge;
    procedure Closeprocess;
    procedure Setposition(pos:integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmProcess: TfrmProcess;

implementation

uses UnitMain;

{$R *.dfm}


procedure Tfrmprocess.closeprocess;
begin
 close;
end;

procedure Tfrmprocess.setposition(pos:integer);
begin
  self.Repaint;
  Gauge1.Progress:=pos;
    if pos=100 then
    begin
      sleep(100);    //延时
    end;
  self.Refresh;
end;

procedure TfrmProcess.FormCreate(Sender: TObject);
begin
  self.Top:=frmmain.top+(frmmain.Height + 9 - self.Height ) div 2;
  self.Left:=frmmain.left+(frmmain.Width - self.Width )div 2 ;
end;

end.