ugetname.pas

很好的俄罗斯方块

{  获取名字窗体单元  }
unit UGetName;

interface

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

type
  TGetNameForm = class(TForm)
    ButtonOK: TButton;
    ButtonCancel: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    NameEdit: TEdit;
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure ButtonCancelClick(Sender: TObject);
  end;

var
  GetNameForm: TGetNameForm;
  UserCancel : Boolean;

implementation

{$R *.DFM}


procedure TGetNameForm.FormShow(Sender: TObject);
begin
   NameEdit.Text := '';
   NameEdit.SetFocus;
   UserCancel := false;
end;

procedure TGetNameForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
   if UserCancel then
   begin
      CanClose := true;
      exit;
   end;

   if NameEdit.Text = '' then
   begin
      NameEdit.SetFocus;
      CanClose := false;
   end;
end;

procedure TGetNameForm.ButtonCancelClick(Sender: TObject);
begin
   UserCancel := true;
end;

end.