?? unit_heroname.pas
字號:
{******************************************************************************
* Uint Unit_HeroName
* Function 用于輸入英雄大名的對話框的界面和功能的實現部分
*
* CopyRight (c) By 虹雨 (Huansun) 2002-8
*
* Date :
* New Develop : 2002-7-30
* Modified : 2002-8-18
******************************************************************************}
unit Unit_HeroName;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TFrm_HeroName = class(TForm)
Label_Level: TLabel;
Label_Word: TLabel;
Edit_Name: TEdit;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frm_HeroName: TFrm_HeroName;
New_Name:string;
implementation
uses Unit_Main;
{$R *.DFM}
procedure TFrm_HeroName.FormCreate(Sender: TObject);
var
Level_Name:string;
begin
Top :=Frm_Main .top +Frm_Main .Panel_top .Height *2 -20;
left:=Frm_Main .Left + 5;
Width :=154;
Height :=150;
unit_Main.checkMainFormPosition(Frm_HeroName );
case LanguageType of
l_Chinese_Simplified :
begin
Label_Level.Font.Size :=10;
Label_Word .Font.Size :=10;
case UserLevel of
v_Beginner : Level_Name :='初級';
v_Middle : Level_Name :='中級';
v_Expert : Level_Name :='高級';
v_Professional: Level_Name:='專業級';
end;
Label_Level .Caption :='已破'+Level_Name +'記錄。';
Label_Word .Caption :='請留尊姓大名。';
Edit_Name .Text :='匿名';
Button1.Caption :='確定';
end;
l_Chinese_Traditional :
begin
Label_Level.Font.Size :=10;
Label_Word .Font.Size :=10;
case UserLevel of
v_Beginner : Level_Name :='
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -