RoundName.pas

   1 unit RoundName;
   2
   3 interface
   4
   5 uses
   6         Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   7         Dialogs, StdCtrls,
   8         GikoSystem, GikoUtil;
   9
  10 type
  11         TRoundNameDialog = class(TForm)
  12                 TitleLabel: TLabel;
  13                 OkButton: TButton;
  14                 CancelButton: TButton;
  15     RoundNameEdit: TEdit;
  16     procedure FormCreate(Sender: TObject);
  17     procedure OkButtonClick(Sender: TObject);
  18     procedure CancelButtonClick(Sender: TObject);
  19     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  20         private
  21                 { Private \90é\8c¾ }
  22                 FCloseFlag: Boolean;
  23         public
  24                 { Public \90é\8c¾ }
  25         end;
  26
  27 //var
  28 //  RoundNameDialog: TRoundNameDialog;
  29
  30 implementation
  31
  32 {$R *.dfm}
  33
  34 procedure TRoundNameDialog.FormCreate(Sender: TObject);
  35 var
  36     CenterForm: TCustomForm;
  37 begin
  38     CenterForm := TCustomForm(Owner);
  39     if Assigned(CenterForm) then begin
  40         Left := ((CenterForm.Width - Width) div 2) + CenterForm.Left;
  41         Top := ((CenterForm.Height - Height) div 2) + CenterForm.Top;
  42     end else begin
  43         Left := (Screen.Width - Width) div 2;
  44         Top := (Screen.Height - Height) div 2;
  45     end;
  46
  47         FCloseFlag := False;
  48 end;
  49
  50 procedure TRoundNameDialog.OkButtonClick(Sender: TObject);
  51 const
  52         s = '\8f\84\89ñ\96¼\82ð\8ew\92è\82µ\82Ä\82\82¾\82³\82¢';
  53 begin
  54         if Trim(RoundNameEdit.Text) = '' then begin
  55                 MsgBox(Handle, s, '\83G\83\89\81[', MB_OK or MB_ICONSTOP);
  56                 RoundNameEdit.SetFocus;
  57                 FCloseFlag := False;
  58                 Exit;
  59         end;
  60         FCloseFlag := True;
  61 end;
  62
  63 procedure TRoundNameDialog.CancelButtonClick(Sender: TObject);
  64 begin
  65         FCloseFlag := True;
  66 end;
  67
  68 procedure TRoundNameDialog.FormCloseQuery(Sender: TObject;
  69   var CanClose: Boolean);
  70 begin
  71         CanClose := FCloseFlag;
  72 end;
  73
  74 end.