我用nstar的方法,怎么不行呢?
type
tmygrid=class(Tdbgrid);
begin
memo1.Lines.Add(inttostr(tmygrid(dbgrid1).col));
memo1.Lines.Add(inttostr(tmygrid(dbgrid1).row));
end;
Agree Samallbs
you can also write like this
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
label1.caption:=inttostr(Column.Index);
label2.caption:=inttostr(DBGrid1.DataSource.DataSet.RecNo);
end;
至于定位光标位位置是否可以考虑用一个Edit浮在DbGrid之上大小随单元格变,考虑在Edit上
定位?待商榷。。。。