如何给Shape控件加上双击事件？

[flyear]

如题。

[ccrun.com]

用子类化技术。


.h文件中：
private: // User declarations
TWndMethod OldProc;
void __fastcall NewProc(TMessage &Message);


.cpp文件中：
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
OldProc = Shape1->WindowProc;
Shape1->WindowProc = NewProc;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NewProc(TMessage &Message)
{
if(Message.Msg == WM_LBUTTONDBLCLK) // 左键双击
{
// 自己在这里加代码就行了
ShowMessage("Shape控件的双击事件");
}
Shape1->Dispatch(&Message);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
Shape1->WindowProc = OldProc;
}

[flyear]

感谢老妖，我刚上完你的网站。

[flyear]

感谢老妖，我刚上完你的网站。两个贴的分全给你。