type
MyDBG=class(DBGrid)
public
property ColCount; //列数
property Col; //当前列
property RowCount; //行数
property Row; //当前行
end; 作为新控件安装,代替DBGrid用。
MyDBG=class(DBGrid)
public
property ColCount; //列数
property Col; //当前列
property RowCount; //行数
property Row; //当前行
end; 作为新控件安装,代替DBGrid用。
TStringGrid(DbGrid1).CellRect(TStringGrid(Dbgrid1).Col,TStringGrid(Dbgrid1).Row).Top
然后用ClientToScreen。