uabout.pas

来自「DELPHI编程入门篇.从基础入手,浅显易懂,一定物有所值.」· PAS 代码 · 共 46 行

unit uabout;

interface

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

type
  Tfrmabout = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Label4: TLabel;
    Bevel1: TBevel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Constructor Create(Ver, Programer, Phone, Email: string);
  end;

var
  frmabout: Tfrmabout;

implementation
{$R *.dfm}

Constructor Tfrmabout.Create;
begin
  inherited Create(Owner);
  self.Label1.Caption := '软件版本：' + Ver;
  self.Label2.Caption := '软件制作：' + Programer;
  self.Label3.Caption := '联系电话：' + Phone;
  self.Label4.Caption := '邮箱地址：' + Email;
end;
procedure Tfrmabout.Button1Click(Sender: TObject);
begin
  self.Close ;
end;

end.