afincts.pas

来自「漏洞扫描系列中HB Network Scanner 测试用练习代码」· PAS 代码 · 共 67 行

unit afincts;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, EPLabels, IndiCtrls, VCLBase;

type
  Tfmincts = class(TForm)
    AIndiButton1: TepIndiButton;
    AIndiButton2: TepIndiButton;
    AIndiGauge5: TepIndiGauge;
    AIndiGauge1: TepIndiGauge;
    AIndiGauge3: TepIndiGauge;
    AIndiGauge4: TepIndiGauge;
    AIndiGauge2: TepIndiGauge;
    AIndiGauge6: TepIndiGauge;
    ANumPanel1: TepNumPanel;
    ANumPanel2: TepNumPanel;
    ALabel27: TepLabel;
    Timer2: TTimer;
    procedure Timer2Timer(Sender: TObject);
    procedure AIndiButton1Click(Sender: TObject);
    procedure AIndiButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmincts: Tfmincts;

implementation

{$R *.DFM}



procedure Tfmincts.Timer2Timer(Sender: TObject);
begin
  if  AIndiGauge6.Progress = 100 then  AIndiGauge6.Progress := 1;
  AIndiGauge6.Progress :=  AIndiGauge6.Progress + 1;
  AIndiGauge2.Progress :=  AIndiGauge1.Progress;
  ANumPanel1.Value := AIndiGauge6.Progress;
  AIndiGauge1.Progress := 1 + Random(99);
  AIndiGauge2.Progress := 1 + Random(99);
  AIndiGauge3.Progress := 1 + Random(99);
  AIndiGauge4.Progress := 1 + Random(99);
  AIndiGauge5.Progress := 1 + Random(99);
  ANumPanel2.Value := - Random(MaxInt);
end;

procedure Tfmincts.AIndiButton1Click(Sender: TObject);
begin
  Timer2.Enabled := True;
end;

procedure Tfmincts.AIndiButton2Click(Sender: TObject);
begin
  Timer2.Enabled := False;
end;

end.