Develop and Download Open Source Software

Browse CVS Repository

Annotation of /gikonavigoeson/gikonavi/RoundName.pas

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


Revision 1.1 - (hide 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 hi_ 1.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