scanover.pas

灰鸽子VIP1.2经典源代码

unit Scanover;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SkinCtrls, StdCtrls, DynamicSkinForm, SkinBoxCtrls, LangFrm;

type
  TSjiegou = class(TLangForm)
    Button3: TspSkinButton;
    Panel: TspSkinPanel;
    Memo: TspSkinMemo;
    ScrollBar2: TspSkinScrollBar;
    spDynamicSkinForm1: TspDynamicSkinForm;
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Sjiegou: TSjiegou;

implementation
uses
  Main;
{$R *.dfm}

procedure TSjiegou.Button3Click(Sender: TObject);
begin
Close;
end;

end.