哪位有XE3的试一下 谢谢!!!
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Panel1->WindowProc = NewProc ;//Panel1 是一个TPanel
}
//---------------------------------------
void __fastcall TForm1::NewProc(TMessage &Message)
{
if (Message.Msg == CM_MOUSELEAVE)
{
Panel1->Caption = "鼠标离开";
}
else if (Message.Msg == CM_MOUSEENTER)
{
Panel1->Caption = "鼠标进入";
}
Panel1->Dispatch(&Message) ;
}
private:// User declarations
TWndMethod FPanelWndProc;
void __fastcall NewProc(TMessage &Message);
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
FPanelWndProc = Panel1->WindowProc;
Panel1->WindowProc = NewProc;
}
//---------------------------------------
void __fastcall TForm1::NewProc(TMessage &Message)
{
FPanelWndProc(Message);
if (Message.Msg == CM_MOUSELEAVE)
{
Panel1->Caption = "鼠标离开";
}
else if (Message.Msg == CM_MOUSEENTER)
{
Panel1->Caption = "鼠标进入";
}
}