about.pas

来自「本软件是小管家个人帐户管理系统 (ADO+ACCESS)」· PAS 代码 · 共 46 行

unit about;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, StdCtrls, ExtCtrls, BusinessSkinForm, bsSkinData;

type
  TForm_About = class(TForm)
    bsStoredSkin1: TbsStoredSkin;
    bsCompressedStoredSkin1: TbsCompressedStoredSkin;
    bsSkinData1: TbsSkinData;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    Image1: TImage;
    Image2: TImage;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinButton1: TbsSkinButton;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinBevel1: TbsSkinBevel;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinLinkLabel1: TbsSkinLinkLabel;
    procedure bsSkinButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_About: TForm_About;

implementation

{$R *.dfm}

procedure TForm_About.bsSkinButton1Click(Sender: TObject);
begin
close
end;

end.