Develop and Download Open Source Software

Browse CVS Repository

Contents of /gikonavigoeson/gikonavi/IndividualAbon.pas

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


Revision 1.1 - (show annotations) (download) (as text)
Tue Sep 2 13:48:21 2003 UTC (20 years, 7 months ago) by h677
Branch: MAIN
File MIME type: text/x-pascal
個別あぼーん解除フォーム

1 unit IndividualAbon;
2
3 interface
4
5 uses
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 Dialogs, StdCtrls;
8
9 type
10 TIndividualAbonForm = class(TForm)
11 ComboBox1: TComboBox;
12 Label1: TLabel;
13 Button1: TButton;
14 procedure Button1Click(Sender: TObject);
15 private
16 { Private ?辿?転 }
17 public
18 { Public ?辿?転 }
19 ResNumber : Integer;
20 end;
21
22 var
23 IndividualAbonForm: TIndividualAbonForm;
24
25 implementation
26
27 {$R *.dfm}
28
29 procedure TIndividualAbonForm.Button1Click(Sender: TObject);
30 begin
31 ResNumber := StrToInt(ComboBox1.Items[ComboBox1.ItemIndex]);
32 end;
33
34 end.

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