vc62.~h

来自「模拟电脑鼠走迷宫,并可通过串口连接电脑鼠」· ~H 代码 · 共 66 行

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

#ifndef VC62H
#define VC62H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Menus.hpp>
#include <Dialogs.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TMainMenu *MainMenu1;
        TMenuItem *N1;
        TMenuItem *N2;
        TMenuItem *N3;
        TMenuItem *N4;
        TMenuItem *N5;
        TMenuItem *N6;
        TMenuItem *N7;
        TButton *Button1;
        TOpenDialog *OpenDialog1;
        TSaveDialog *SaveDialog1;
        TButton *Button2;
        TTimer *Timer1;
        TShape *Shape1;
        TLabel *Label2;
        TLabel *Label1;
        TShape *Shape2;
        TTimer *Timer2;
        TMenuItem *N8;
        TMenuItem *N9;
        TMenuItem *N10;
        TLabel *Label3;
        TLabel *Label4;
        void __fastcall N2Click(TObject *Sender);
        void __fastcall FormMouseDown(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);
        void __fastcall draw_dot(TObject *Sender, int x, int y);
        void __fastcall draw(TObject *Sender);
        void __fastcall Go(TObject *Sender, int dir);
        void __fastcall N7Click(TObject *Sender);
        void __fastcall N3Click(TObject *Sender);
        void __fastcall N4Click(TObject *Sender);
        void __fastcall Button1KeyPress(TObject *Sender, char &Key);
        void __fastcall Button2Click(TObject *Sender);
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall Timer1Timer(TObject *Sender);
        void __fastcall Timer2Timer(TObject *Sender);
        void __fastcall N9Click(TObject *Sender);
        void __fastcall hand(TObject *Sender);
        void __fastcall Auto(TObject *Sender); 
        void __fastcall N10Click(TObject *Sender);
private:	// User declarations
public:		// User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif