＋设为首页 ＋添加到收藏夹
如题
class PACKAGE TSwitch : public TPanel
{
private:
bool fstatus;
bool fswtype;
MyEvent fclick;
unsigned short fregister;
DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X,
int Y);
// DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X,
int Y);
void __fastcall mypaint(void);
void __fastcall setstatus(bool x)
{
fstatus=x;
mypaint();
};
void __fastcall setswtype(bool x)
{
fswtype=x;
mypaint();
};
void __fastcall Defclick(Controls::TMouseButton Button, Classes::TShiftState Shift, int X,
int Y)
{
};
protected:
public:
__fastcall TSwitch(TComponent* Owner);
__published:
__property bool status = { read = fstatus,write = setstatus,nodefault}; //自已加的
__property bool swtype = { read = fswtype,write = setswtype,nodefault};
__property unsigned short PLCregister =
{ read = fregister,write = fregister,nodefault};
__property MyEvent OnMyClick = { read = fclick,write = fclick,nodefault};
};
