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

[Magusflp008]

如題

[Magusflp008]

怎麼沒有人阿

[Kshape]

如果是鼠标点单元格可以这样
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
showmessage(IntToStr(DBGrid1.SelectedIndex));
showmessage(inttostr(Table1.RecNo))//行号也就相当于记录号

end;

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

当前列：DBGrid1.SelectedIndex

[naner_china]

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;

[Magusflp008]

Kshape([伟大的大伟!]) : 我想实现的是当输入焦点在某个单元格上时，用一个别的控件覆盖在该单元格上。所以要知道单元格的坐标

naner_china(naner)： 如果不是鼠标移动，是通过tab将焦点转到那个单元格上时呢？