编写一个控件如何添加可由用户设置的属性？

[johnxie132]

如题

[柯本]

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};

};

[johnxie132]

还有别的方法吗？我有一个控件的代码，没使用__property也有几项自定义属性

[柯本]

没使用__property肯定是不可显示的属性
也就是定义在public:中的,可以这样用