-
Notifications
You must be signed in to change notification settings - Fork 0
/
Unit1.h
53 lines (51 loc) · 1.97 KB
/
Unit1.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Buttons.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TBitBtn *Exit;
TBitBtn *New;
TBitBtn *Remove;
TBitBtn *Run;
TMemo *add;
TEdit *Name;
TListBox *List;
TTimer *Timer1;
TMemo *del;
TMemo *cmos;
TBitBtn *Set;
TLabel *Label1;
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
void __fastcall ExitClick(TObject *Sender);
void __fastcall FormCreate(TObject *Sender);
void __fastcall NewClick(TObject *Sender);
void __fastcall RemoveClick(TObject *Sender);
void __fastcall Timer1Timer(TObject *Sender);
void __fastcall ListClick(TObject *Sender);
void __fastcall ListEnter(TObject *Sender);
void __fastcall ListKeyPress(TObject *Sender, char &Key);
void __fastcall ListKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift);
void __fastcall ListKeyUp(TObject *Sender, WORD &Key,
TShiftState Shift);
void __fastcall ListDblClick(TObject *Sender);
void __fastcall RunClick(TObject *Sender);
void __fastcall SetClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif