单击弹出菜单双击就不执行了,该如何解决

单击弹出菜单双击就不执行了
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);

}