about.pas

来自「感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡」· PAS 代码 · 共 52 行

unit about;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, MPlayer, StdCtrls, jpeg;

type
  TFrmabout = class(TForm)
    Button1: TButton;
    Image1: TImage;
    imgCXiangYu: TImage;
    imgCXieCheng: TImage;
    lblTel: TLabel;
    Label1: TLabel;
    imgCXinCheng: TImage;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
  public
    { Public declarations }
  end;

var
  Frmabout: TFrmabout;

implementation

{$R *.DFM}

procedure TFrmabout.FormCreate(Sender: TObject);
begin
  {$IF Defined(XC) }
	imgCXieCheng.Visible :=True;
  {$ELSEIF Defined(XY) }
	imgCXiangYu.Visible :=True;
  {$ELSE}
	imgCXinCheng.Visible :=True;
  {$IFEND}

  lblTel.Caption :=IntToStr(130) +IntToStr(58586760);
end;


procedure TFrmabout.Button1Click(Sender: TObject);
begin
	Close;
end;

end.