frmold.pas

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

unit frmold;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  regions, StdCtrls, MediaLib, ExtCtrls, EPCtrls;

type
  TfrmOldVersion = class(TForm)
    mlRegionForm: TepRegionForm;
    Label1: TLabel;
    mlShadowPanel2: TepShadowPanel;
    mlShadowPanel4: TepShadowPanel;
    mlShadowPanel5: TepShadowPanel;
    mlShadowPanel3: TepShadowPanel;
    mlMediaPanel2: TepMediaPanel;
    mlMediaPanel3: TepMediaPanel;
    mlShadowPanel1: TepShadowPanel;
    Memo1: TMemo;
    mlBitmap1: TepBitmap;
    mlBitmap4: TepBitmap;
    mlBitmap2: TepBitmap;
    mlBitmap3: TepBitmap;
    Image1: TImage;
    mlRegionSpeedButton1: TepRegionSpeedButton;
    procedure mlRegionSpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmOldVersion: TfrmOldVersion;

implementation

{$R *.DFM}



procedure TfrmOldVersion.mlRegionSpeedButton1Click(Sender: TObject);
begin
  Close;
end;

end.