procedure TForm1.ToolButton1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
var
vPos: TPoint;
begin
vPos.x := X;
vPos.y := Y;
vPos := ClientToScreen(vPos);
ToolButton1.PopupMenu.Popup(vPos.X, vPos.Y);
end;
X, Y: Integer);
var
vPos: TPoint;
begin
vPos.x := X;
vPos.y := Y;
vPos := ClientToScreen(vPos);
ToolButton1.PopupMenu.Popup(vPos.X, vPos.Y);
end;
解决方案 »
- COM自定义事件问题请教
- 谁能给个把exec文件导入到数据库中并且在listview或其它控件中显示出导入的数据,我这边数据量比较大。一般有几万条不要太慢就可以,我是dephi新手。
- 请问主窗口,一运行就要隐藏,怎么做!
- Delphi多人开发,一般都用什么源代码管理工具啊?
- D6 中的无状态对象问题 请各位前辈指教
- 讨论程序员30岁后去做什么?
- 是否DELPHI的BUG?TclientDataSet.Append
- 有谁能帮我吗?在线等待!谢谢
- 如何在button上作图?
- 给ListView网格着色。用OnCustomDrawItem事件,无法达到预期效果
- 请问delphi开发者资源交流社区的网址是什么?
- 谁知道怎么利用DELPHI自动生成想要的数据库啊?
这里没有控制PopupMenu的消失~~
自己想办法吧~~~~~~~~~