控件点击事件
右键菜单 name = popMenu
TPoint P;
P.x = (long)(控件->Left);
P.y = (long)(控件->Top + 控件->Height);
P = (控件所在容器指针)->ClientToScreen(P);
popMenu->Popup(P.x, P.y);
控件点击事件
右键菜单 name = popMenu
TPoint P;
P.x = (long)(控件->Left);
P.y = (long)(控件->Top + 控件->Height);
P = (控件所在容器指针)->ClientToScreen(P);
popMenu->Popup(P.x, P.y);