progressbar.pas

来自「蓝图财务进销存一体化,delphi源码,使用ACCESS数据库」· PAS 代码 · 共 30 行

unit ProgressBar;

interface

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

type
  TProgressBarForm = class(TForm)
    Panel1: TPanel;
    P_message: TPanel;
    Panel3: TPanel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ProgressBarForm: TProgressBarForm;

implementation

{$R *.DFM}

  

end.