about.pas

来自「超级播放器 -- 软件特点 -- 功能齐全 操作简便 绿色环保」· PAS 代码 · 共 51 行

unit about;

interface

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

type
  TFrmAbout = class(TForm)
    lbComment: TLabel;
    Label2: TLabel;
    Bevel1: TBevel;
    Button1: TButton;
    RegiSysBtn: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmAbout: TFrmAbout;

implementation

uses main,regist;

{$R *.dfm}

procedure TFrmAbout.FormCreate(Sender: TObject);
begin
  caption:='关于- '+APP_TITLE;
  Label2.Caption :=APP_TITLE;
  lbComment.Caption :='    该软件使用Delphi6编制而成，'+'''希望'+#13
                  +'能够喜欢呢'''+'！'+#13
                + #13+'    欢迎提出宝贵意见。'+#13
                + #13+'    Email:[e-mail]' ;

   RegiSysBtn.Visible :=mainfrm.regisyslb.visible;
end;

procedure TFrmAbout.Button1Click(Sender: TObject);
begin
  close;
end;

end.