ini.~pas

来自「一个工具管理系统。。用DELPHI+ACCESS写的」· ~PAS 代码 · 共 34 行

unit ini;

interface

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

type
  TFM_ini = class(TForm)
    ProgressBar1: TProgressBar;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FM_ini: TFM_ini;

implementation

{$R *.dfm}

procedure TFM_ini.FormShow(Sender: TObject);
begin
  ProgressBar1.Position:=0;
end;

end.