| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2023/11/21 17:17:20 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | FMX 窗口 GetCursorPos(pt); 位置不对呢， ---------------------------------------------- 永远是DELPHI初学者。 |
|||||
| 作者： |
|
2023/11/21 19:05:39 | ||||
| 1楼： | procedure TForm1.VertScrollBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); var pt: TPoint; begin GetCursorPos(pt); if Button = TMouseButton.mbRight then // 如果按的右键则弹出菜单 begin // MlSkinListBox1.Visible := False; ZuPopupMenu.popup(pt.X,pt.Y);// round(X-40),round(Y)); end; end; 菜单并不在鼠示弹出，而是离鼠标下面弹出来，位置不准。 ---------------------------------------------- 永远是DELPHI初学者。 |
|||||
| 作者： |
|
2023/11/21 19:20:50 | ||||
| 2楼： | 要这样来获取 MOUSE 右键的点击位置, 来弹出菜单条. if Button = TMouseButton.mbRight then begin var cP: TPointF := TPointF.Create(X, Y); cP := VertScrollBox1.Scene.LocalToScreen(VertScrollBox1.LocalToAbsolute(cP)); ZuPopupMenu.popup(cP.X, cP.Y); end; ---------------------------------------------- 美国国务卿蓬佩奥回答大学生提问时说，“我曾担任美国中央情报局（CIA）的局长。我们撒谎、我们欺骗、我们偷窃。我们还有一门课程专门来教这些。这才是美国不断探索进取的荣耀 |
|||||
| 作者： |
|
2023/11/22 8:13:48 | ||||
| 3楼： | @wenyue0811 谢谢您，您的方法很好。 还有个问题，就是任务状态栏图标的显示菜单位置也不对，离得很远，这个如何校正？
永远是DELPHI初学者。 |
|||||
| 作者： |
|
2023/11/24 12:20:25 | ||||
| 4楼： | 看上图，FMX的小图位置不对，任务状态栏图标 怎么能正常位置显示？ ---------------------------------------------- 永远是DELPHI初学者。 |
|||||
| 信息 |
| 登陆以后才能回复 |
