重载TForm的WindowProc后，控件不能响应鼠标点击消息

[chinayu2007]

重载TForm的WindowProc后，继承自TWinControl的控件能响应鼠标消失，但是继承自TGraphicControl的控件不能响应消息。
如TImage控件不能响应鼠标点击。

[chinayu2007]

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
    this->WindowProc = Proc;
}
//加入这些代码，所有非TWinControl控件才能响应鼠标
void __fastcall TForm1::Proc(TMessage & message)
{
    TPoint pt;
    pt.x = message.LParamLo;
    pt.y = message.LParamHi;

    if(message.Msg == WM_LBUTTONDOWN || message.Msg == WM_LBUTTONUP)
    {
        TControl* control= ControlAtPos(pt, false);
        if(control)
        {
           message.Result = control->Perform(message.Msg, message.WParam, message.LParam);
        }
    }
    this->Dispatch(&message);
}

[缘中人]

要这样啊

[缘中人]

你可以放一个TApplicationEvents进行截获消息试试

[缘中人]

TWinControl可以收到，说明不是重载WindowProc的问题了吧