gameabout.pas

delphi 电子书阅读器 外观非常漂亮

{
模块名称：关于隐藏游戏

使用方法：1、Create
		  2、ShowModal
		  	
返回值：  无
}

unit GameAbout;

interface

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

type
  TFormGameAbout = class(TForm)
	Label1: TLabel;
	Label2: TLabel;
	BtnOk: TButton;

    procedure FormCreate(Sender: TObject);

  private
	{ Private declarations }
  public
	{ Public declarations }
  end;

var
  FormGameAbout: TFormGameAbout;

implementation

uses
	Global;

{$R *.DFM}

procedure TFormGameAbout.FormCreate(Sender: TObject);
begin
	//多语言文字
	Self.Font.Charset := GetCharset;
	Label1.Font.Charset := GetCharset;

	Self.Caption := GetWord('关于 隐藏游戏');

	Label1.Caption := GetWord('三行棋游戏  版本 2.22');
	Label2.Caption := GetWord('版权所有(c) Tale软件工作组 1997～2000');
	BtnOk.Caption := GetWord('确定');
end;

end.