bcb 获得鼠标位置

自己解决

在MDI子窗体的OnDblClick事件中：
__fastcall TForm2::FormDblClick(TObject *Sender)
{
    TPoint pt = ScreenToClient(Mouse->CursorPos);
}