TCustomControl中的MouseMove能覆盖吗？

[chinayu2007]

自己写的一个类，如下
class TMyControl:public TCustomControl
{
public:
DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
}
覆盖鼠标事件，编译出错：
[Linker Error] Unresolved external '__fastcall TMyControl:MouseMove(System::Set<Classes::Classes__1, 0, 6>, int, int)' referenced from C:\UNIT1.OBJ
请问怎么解决？

[CCED136]

这个错误是连接错误， 你是不是忘了实现 MouseMove 方法了

[CCED136]

另外， 你说的 OnMouseMove 事件， 是 TControl 的吧， 这个是事件，直接在派生类处理就是了， 没有覆盖的说法

[缘中人]

--H
class PACKAGE TCustomControl1 : public TCustomControl
{
private:
	void __fastcall myMouseMove(System::Classes::TShiftState Shift, int X, int Y);
	void __fastcall myMsgHandle(TMessage&MSG);

protected:
public:
	__fastcall TCustomControl1(TComponent* Owner);

__published:
	BEGIN_MESSAGE_MAP
	VCL_MESSAGE_HANDLER(WM_MOUSEMOVE, TMessage, myMsgHandle)
	END_MESSAGE_MAP(TCustomControl)
};

--CPP
static inline void ValidCtrCheck(TCustomControl1 *)
{
	new TCustomControl1(NULL);
}

// ---------------------------------------------------------------------------
void __fastcall TCustomControl1::myMouseMove(System::Classes::TShiftState Shift, int X, int Y)
{
}

__fastcall TCustomControl1::TCustomControl1(TComponent* Owner) : TCustomControl(Owner)
{

}

// ---------------------------------------------------------------------------
namespace Customcontrol1
{
	void __fastcall PACKAGE Register()
	{
		TComponentClass classes[1] =
		{__classid(TCustomControl1)};
		RegisterComponents(L"Samples", classes, 0);
	}
}

// ---------------------------------------------------------------------------
void __fastcall TCustomControl1::myMsgHandle(TMessage&MSG)
{
	if (MSG.Msg == WM_MOUSEMOVE)
	{
		myMouseMove(TShiftState(), MSG.LParamLo, MSG.LParamHi);

	}
}

你自己试试吧，看这样行不行

[ccrun.com]

[Linker Error] Unresolved external 'xxx' referenced from xxx 这样的链接错误，就是实现部分没有找到。