unit1.h

来自「一个彩票模拟程序」· C头文件 代码 · 共 64 行

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
  TLabel *Label1;
  TLabel *Label2;
  TButton *Button1;
  TButton *Button2;
  TPanel *Panel1;
  TComboBox *ComboBox1;
  TListBox *ListBox1;
  TLabel *Label3;
  TButton *Button3;
  TTimer *Timer1;
  TLabel *Label4;
  TLabel *Label5;
  TComboBox *ComboBox2;
  TLabel *Label6;
  TButton *Button4;
  TTimer *Timer2;
  TLabel *Label7;
  TLabel *Label8;
  TMainMenu *MainMenu1;
  TMenuItem *N2;
  TMenuItem *N3;
  void __fastcall ComboBox1Change(TObject *Sender);
  void __fastcall FormCreate(TObject *Sender);
  void __fastcall Button1Click(TObject *Sender);
  void __fastcall Button2Click(TObject *Sender);
  void __fastcall Button3Click(TObject *Sender);
  void __fastcall Timer1Timer(TObject *Sender);
  void __fastcall ComboBox2Change(TObject *Sender);
  void __fastcall Button4Click(TObject *Sender);
  void __fastcall Timer2Timer(TObject *Sender);
  void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
  void __fastcall N3Click(TObject *Sender);
  void __fastcall N2Click(TObject *Sender);
private:	// User declarations
public:		// User declarations
  __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
char getchoice(int a)
{
  if (a<10)
   return a+48;
  else return a+55;
}
#endif