afamain.pas

漏洞扫描系列中HB Network Scanner 测试用练习代码

unit afamain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  VCLBase, EffBtns, EPCtrls, EPLabels, regions, wavctrl, Main, MediaLib,
  ExtCtrls;

type
  Tfmamain = class(TForm)
    epRegionForm1: TepRegionForm;
    epEfRndBtn1: TepEfRndBtn;
    epBitLabel1: TepBitLabel;
    epImagePanel1: TepImagePanel;
    epEfBtn1: TepEfBtn;
    epEfBtn2: TepEfBtn;
    epEfBtn3: TepEfBtn;
    epEfBtn4: TepEfBtn;
    epEfBtn5: TepEfBtn;
    epEfBtn6: TepEfBtn;
    epEfBtn7: TepEfBtn;
    epEfBtn8: TepEfBtn;
    epMoveForm1: TepMoveForm;
    epBitmap1: TepBitmap;
    procedure epEfBtn1Click(Sender: TObject);
    procedure epEfBtn2Click(Sender: TObject);
    procedure epEfBtn3Click(Sender: TObject);
    procedure epEfBtn4Click(Sender: TObject);
    procedure epEfBtn5Click(Sender: TObject);
    procedure epEfBtn6Click(Sender: TObject);
    procedure epEfBtn7Click(Sender: TObject);
    procedure epEfBtn8Click(Sender: TObject);
    procedure epEfRndBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmamain: Tfmamain;

implementation

uses afbmpctl, afbtns, afgrids, afpnls, afincts, afmanio, afsts, afboxs;

{$R *.DFM}


procedure Tfmamain.epEfBtn1Click(Sender: TObject);
begin
  fmbmpctrls.ShowModal;
end;

procedure Tfmamain.epEfBtn2Click(Sender: TObject);
begin
  afmbtns.ShowModal;
end;

procedure Tfmamain.epEfBtn3Click(Sender: TObject);
begin
  fmGrids.ShowModal;
end;

procedure Tfmamain.epEfBtn4Click(Sender: TObject);
begin
  fmboxs.ShowModal;
end;

procedure Tfmamain.epEfBtn5Click(Sender: TObject);
begin
  fmpnls.ShowModal;
end;

procedure Tfmamain.epEfBtn6Click(Sender: TObject);
begin
  fmincts.ShowModal;
end;

procedure Tfmamain.epEfBtn7Click(Sender: TObject);
begin
  fmanio.ShowModal;
end;

procedure Tfmamain.epEfBtn8Click(Sender: TObject);
begin
  fmsts.ShowModal;
end;

procedure Tfmamain.epEfRndBtn1Click(Sender: TObject);
begin
  Close;
end;


end.