afsts.pas

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

unit afsts;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StCtrls, VCLBase, BmpCtrls, EPLabels, ExtCtrls, StdCtrls;

type
  Tfmsts = class(TForm)
    ALabel23: TepLabel;
    AStatusProgressPanel1: TepStatusProgressPanel;
    ABMPCheckBox20: TepBMPCheckBox;
    AStatusProgressPanel3: TepStatusProgressPanel;
    ABMPCheckBox17: TepBMPCheckBox;
    ALabel24: TepLabel;
    AStatusPanel1: TepStatusPanel;
    ALabel25: TepLabel;
    AStatusBar1: TepStatusBar;
    AStatusPanel2: TepStatusPanel;
    AStatusProgressPanel2: TepStatusProgressPanel;
    AStatusPanel3: TepStatusPanel;
    Timer1: TTimer;
    Label1: TLabel;
    procedure ABMPCheckBox20Click(Sender: TObject);
    procedure ABMPCheckBox17Click(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmsts: Tfmsts;

implementation

{$R *.DFM}


procedure Tfmsts.ABMPCheckBox20Click(Sender: TObject);
begin
  AStatusProgressPanel1.ShowProgressInfo := ABMPCheckBox20.Checked;
end;

procedure Tfmsts.ABMPCheckBox17Click(Sender: TObject);
begin
  Timer1.Enabled := ABMPCheckBox17.Checked;
end;


procedure Tfmsts.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  AStatusPanel2.Text := 'X: ' + IntToStr(X) + ' Y: ' + IntToStr(Y);
end;

procedure Tfmsts.Timer1Timer(Sender: TObject);
begin
  if AStatusProgressPanel1.Progress = 100
  then
    AStatusProgressPanel1.Progress := 0;
  AStatusProgressPanel1.Progress := AStatusProgressPanel1.Progress + 1;
  AStatusProgressPanel2.Progress := AStatusProgressPanel1.Progress;
  AStatusProgressPanel3.Progress := AStatusProgressPanel1.Progress;
end;

end.