单击弹出菜单双击就不施行了

单击弹出菜单双击就不执行了
windows窗体，左上角，图标，单击左键，弹出菜单，双击关闭窗体。

我在界面上放了个image，双击不执行了啊
void __fastcall TForm1::Image1DblClick(TObject *Sender)
{
  Caption = "2";
}
//---------------------------------------


void __fastcall TForm1::Image1Click(TObject *Sender)
{
  Caption = "1";
  TPoint p;
  GetCursorPos(&p);
  PopupMenu1->Popup(p.x,p.y);
}
[解决办法]
你没有发现点击标题栏的小图标弹出的菜单位置是在图标的下方么？那么你自己弹出的菜单坐标稍偏移一些就可以了。

void __fastcall TForm1::Image1DblClick(TObject *Sender)
{
    Memo1->Lines->Add("OnDblClick");
}
// ---------------------------------------
void __fastcall TForm1::Image1Click(TObject *Sender)
{
    Memo1->Lines->Add("OnClick");

    TPoint p;
    GetCursorPos(&p);
    PopupMenu1->Popup(p.x + 2, p.y + 2);
}