控件点击事件
右键菜单 name = popMenu
TPoint P;
P.x = (long)(控件->Left);
P.y = (long)(控件->Top + 控件->Height);
P = (控件所在容器指针)->ClientToScreen(P);
popMenu->Popup(P.x, P.y);
版权声明:本文为Lixinag原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
控件点击事件
右键菜单 name = popMenu
TPoint P;
P.x = (long)(控件->Left);
P.y = (long)(控件->Top + 控件->Height);
P = (控件所在容器指针)->ClientToScreen(P);
popMenu->Popup(P.x, P.y);