Develop and Download Open Source Software

Browse CVS Repository

Annotation of /gikonavigoeson/gikonavi/IndividualAbon.pas

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


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