如何让一个popmenu在点击form时准确展开在光标处？谢谢

[scapere]

rt

[3996906]

不知道我理解的对不对
你自己试试

void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
TPoint pt;
pt.x = X;
pt.y = Y;
pt = this->ClientToScreen(pt);
if(Button == mbLeft)//左键时的
this->PopupMenu1->Popup(pt.x,pt.y);
}

[xthmpro_cn]

搂主之所以不准是因为:ClientToScreen函数,注意相关的ScteenToClient,你能用的到的.

[myy]

void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
//判断...
PopupMenu1->Popup(Mouse->CursorPos.x, Mouse->CursorPos.y);
}

[scapere]

谢谢，就是3996906理解的那个意思。谢谢大家