progressbar.pas

来自「是一个手机功能的模拟程序」· PAS 代码 · 共 42 行

unit progressbar;

interface

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

type
  TForm_progressbar = class(TForm)
    Panel1: TPanel;
    ProgressBar1: TProgressBar;
    Label_status: TLabel;
    SpeedButton1: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_progressbar: TForm_progressbar;

implementation

uses main;

{$R *.dfm}

procedure TForm_progressbar.SpeedButton1Click(Sender: TObject);
begin
  status_PHB:=PC_PHB_status_init;
  status_SMS:=PC_SMS_status_init;
  status_CR:=PC_CR_status_init;
  status_FILE:=PC_FILE_status_init;
  form_main.StatusBar1.Panels[0].Text:='下载已中断';
  close;
end;

end.