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);
36 CenterForm: TCustomForm;
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;
43 Left := (Screen.Width - Width) div 2;
44 Top := (Screen.Height - Height) div 2;
50 procedure TRoundNameDialog.OkButtonClick(Sender: TObject);
52 s = '
\8f\84\89ñ
\96¼
\82ð
\8ew
\92è
\82µ
\82Ä
\82
\82¾
\82³
\82¢';
54 if Trim(RoundNameEdit.Text) = '' then begin
55 MsgBox(Handle, s, '
\83G
\83\89\81[', MB_OK or MB_ICONSTOP);
56 RoundNameEdit.SetFocus;
63 procedure TRoundNameDialog.CancelButtonClick(Sender: TObject);
68 procedure TRoundNameDialog.FormCloseQuery(Sender: TObject;
69 var CanClose: Boolean);
71 CanClose := FCloseFlag;