about_un.pas

来自「手机进销存系统Delphi源码,管理手机的进货还有销售方面的功能」· PAS 代码 · 共 37 行

unit about_un;

interface

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

type
  Tabout_frm = class(Tbase_frm)
    bsSkinTextLabel1: TbsSkinTextLabel;
    bsSkinTextLabel2: TbsSkinTextLabel;
    bsSkinTextLabel3: TbsSkinTextLabel;
    Image1: TImage;
    procedure FormClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  about_frm: Tabout_frm;

implementation

{$R *.dfm}

procedure Tabout_frm.FormClick(Sender: TObject);
begin
  inherited;
close;
end;

end.