ufrmabout.~pas

pas脚本编译,编译写好的脚本,运用了fastscript控件

unit UFrmAbout;

interface

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

type
  TFrmAbout = class(TForm)
    img1: TImage;
    pnl1: TPanel;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lblPName: TLabel;
    lblPVer: TLabel;
    lblEmail: TLabel;
    lblTel: TLabel;
    lbl9: TLabel;
    lbl5: TLabel;
    lblCrp: TLabel;
    lbl6: TLabel;
    lblQQ: TLabel;
    procedure FormShow(Sender: TObject);
    procedure img1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
    PName:string;
    PVer:string;
    PUnit:string;
    Email:string;
    Tel:string;
    ServiceOnLine:string;
  end;

var
  FrmAbout: TFrmAbout;


implementation

{$R *.dfm}

procedure TFrmAbout.FormShow(Sender: TObject);
begin
pnl1.Color := clHighlightText;
lblPName.Caption :=PName;
lblPVer.Caption :=PVer;
lblCrp.Caption :=PUnit;
lblEmail.Caption :=Email;
lblTel.Caption :=Tel;
lblQQ.Caption :=ServiceOnLine;
pnl1.Color :=clWhite;
end;

procedure TFrmAbout.img1Click(Sender: TObject);
begin
Close;
end;

procedure TFrmAbout.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #27 then close;
end;

end.