Develop and Download Open Source Software

Browse CVS Repository

Contents of /gikonavigoeson/gikonavi/RoundName.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (show annotations) (download) (as text)
Sat Aug 9 13:51:10 2003 UTC (20 years, 8 months ago) by hi_
Branch point for: MAIN, hi
File MIME type: text/x-pascal
Initial revision

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 éŒž }
22 FCloseFlag: Boolean;
23 public
24 { Public éŒž }
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 = '„‰ń–ź‚đŽw’肾‚Ä‚­‚ž‚ł‚˘';
42 begin
43 if Trim(RoundNameEdit.Text) = '' then begin
44 MsgBox(Handle, s, 'ƒGƒ‰[', 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.

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26