delphi7 怎么让button按钮跟着鼠标点击dbgrideh数据行移动 获取dbgrideh数据行的位置,转换坐标后,修改button按钮的left,top属性,使其移动到指定位置 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 能详细点吗 ???怎么获取dbgrideh数据行的位置呢? 还有应该写在dbgrideh 的哪个事件中呢? dbgrideh 的鼠标单击事件 能详细点吗 ???怎么获取dbgrideh数据行的位置呢? 在 dbgrid的DBGridCellClick 事件中加上:var x, y : integer ; P: TPoint;begin GetCursorPos(P); Edit1.Text := Format('X: %d, Y: %d',[P.X, P.Y]); x := frMainTest.Left ; y := frMainTest.Top ; Button.Top := P.Y - y - 45 ; Button.Left := P.X - x ; Button.BringToFront();注: Button 的位置,需要根据你放置的容器不同而计算出相对位置。GetCursorPos(P) 获取的是鼠标在屏幕的位置。 关于DsPack播放问题 怎么动态创建事件???????? 如何备份pandox数据 在delphi6中导入activex 请问将符合条件的纪录插入到sql Server 表student中 请问delphi里面有没有define语句,就象c语言一样的 再delphi中如何实现对小数点后面的任意位进行四舍五入? 关于图形的问题! 如何取得DBGRID里某一列所对应的数据库信息(如字段信息,字段长度等)SOSSSS MediaPlayer1控件支持播放什么文件呢? 请教下如何导出dll中常量 开发一个系统求帮助
能详细点吗 ???怎么获取dbgrideh数据行的位置呢? 还有应该写在dbgrideh 的哪个事件中呢?
x, y : integer ;
P: TPoint;
begin
GetCursorPos(P);
Edit1.Text := Format('X: %d, Y: %d',[P.X, P.Y]);
x := frMainTest.Left ;
y := frMainTest.Top ;
Button.Top := P.Y - y - 45 ;
Button.Left := P.X - x ;
Button.BringToFront();
注: Button 的位置,需要根据你放置的容器不同而计算出相对位置。GetCursorPos(P) 获取的是鼠标在屏幕的位置。