Y
ybsnui
Unregistered / Unconfirmed
GUEST, unregistred user!
各位大哥们,小弟在创建一个新类时,将母类的Click事件重载,并增加了一句
ShowMessage('Ok'),为什么不能响应这句啊!!!
还有我新不重载, 新建一个类
定义为:
private:
TNotifyEvent FOnClick;
protected:
virtual void __fastcall FClick(TObject* Sender);
创建事件名称
public:
published:
__property TNotifyEvent OnClick = {read = FOnClick,write = FOnClick}
__fastcall TClickButton::TButton(TComponent *Owner) //构造函数
:TButton(Ower)
{
OnClick = FClick;
//初始化OnClick事件指向Click;
}
void __fastcall TClickButton::FClick(TObject* Sender)
{
ShowMessage("OK");
if (FOnClick)
FOnClick(this);
}
//以上是C++ Builder所做
以上是我仿一个Delphi的程序而做,为什么不行啊?或哪位大哥有事似的BCB源程序啊
ShowMessage('Ok'),为什么不能响应这句啊!!!
还有我新不重载, 新建一个类
定义为:
private:
TNotifyEvent FOnClick;
protected:
virtual void __fastcall FClick(TObject* Sender);
创建事件名称
public:
published:
__property TNotifyEvent OnClick = {read = FOnClick,write = FOnClick}
__fastcall TClickButton::TButton(TComponent *Owner) //构造函数
:TButton(Ower)
{
OnClick = FClick;
//初始化OnClick事件指向Click;
}
void __fastcall TClickButton::FClick(TObject* Sender)
{
ShowMessage("OK");
if (FOnClick)
FOnClick(this);
}
//以上是C++ Builder所做
以上是我仿一个Delphi的程序而做,为什么不行啊?或哪位大哥有事似的BCB源程序啊