获得DBGrid的行和列:
procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
c,r:integer;
begin//不显示时
c:=TDrawGrid(dbgrid1).col;//列
r:=TDrawGrid(dbgrid1).row;//行
begin//如果要显示时
Edit1.Text:=IntToStr(TDrawGrid(dbgrid1).col);//列
Edit2.Text:=IntToStr(TDrawGrid(dbgrid1).row);//行
end;