如何獲取dbgrid當前輸入焦點單元格的座標

Magusflp008 2005-05-24 11:44:59
如題
...全文
146 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
Magusflp008 2005-05-25
  • 打赏
  • 举报
回复
Kshape([伟大的大伟!]) : 我想实现的是当输入焦点在某个单元格上时,用一个别的控件覆盖在该单元格上。所以要知道单元格的坐标

naner_china(naner): 如果不是鼠标移动,是通过tab将焦点转到那个单元格上时呢?
naner_china 2005-05-25
  • 打赏
  • 举报
回复
procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
g_x,g_y:integer;
begin
g_x := x;
g_y := y;
edit1.Text := inttostr(g_x);
edit2.Text := inttostr(g_y);
end;
Kshape 2005-05-25
  • 打赏
  • 举报
回复
如果是鼠标点单元格可以这样
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
showmessage(IntToStr(DBGrid1.SelectedIndex));
showmessage(inttostr(Table1.RecNo))//行号也就相当于记录号

end;

如果是选中一行
那么这样就可以了:
当前行号:DBGrid1.DataSource.DataSet.RecNo

当前列:DBGrid1.SelectedIndex
Magusflp008 2005-05-25
  • 打赏
  • 举报
回复
怎麼沒有人阿

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧