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 begin
  36         FCloseFlag := False;
  37 end;
  38
  39 procedure TRoundNameDialog.OkButtonClick(Sender: TObject);
  40 const
  41         s = '\8f\84\89ñ\96¼\82ð\8ew\92è\82µ\82Ä\82\82¾\82³\82¢';
  42 begin
  43         if Trim(RoundNameEdit.Text) = '' then begin
  44                 MsgBox(Handle, s, '\83G\83\89\81[', MB_OK or MB_ICONSTOP);
  45                 RoundNameEdit.SetFocus;
  46                 FCloseFlag := False;
  47                 Exit;
  48         end;
  49         FCloseFlag := True;
  50 end;
  51
  52 procedure TRoundNameDialog.CancelButtonClick(Sender: TObject);
  53 begin
  54         FCloseFlag := True;
  55 end;
  56
  57 procedure TRoundNameDialog.FormCloseQuery(Sender: TObject;
  58   var CanClose: Boolean);
  59 begin
  60         CanClose := FCloseFlag;
  61 end;
  62
  63 end.