6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
11 TRoundNameDialog = class(TForm)
14 CancelButton: TButton;
16 procedure FormCreate(Sender: TObject);
17 procedure OkButtonClick(Sender: TObject);
18 procedure CancelButtonClick(Sender: TObject);
19 procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
28 // RoundNameDialog: TRoundNameDialog;
34 procedure TRoundNameDialog.FormCreate(Sender: TObject);
39 procedure TRoundNameDialog.OkButtonClick(Sender: TObject);
41 s = '
\8f\84\89ñ
\96¼
\82ð
\8ew
\92è
\82µ
\82Ä
\82
\82¾
\82³
\82¢';
43 if Trim(RoundNameEdit.Text) = '' then begin
44 MsgBox(Handle, s, '
\83G
\83\89\81[', MB_OK or MB_ICONSTOP);
45 RoundNameEdit.SetFocus;
52 procedure TRoundNameDialog.CancelButtonClick(Sender: TObject);
57 procedure TRoundNameDialog.FormCloseQuery(Sender: TObject;
58 var CanClose: Boolean);
60 CanClose := FCloseFlag;