5,927
社区成员




var
cowrxy:TGridCoord;
begin
cowrxy:=dbgrd1.MouseCoord(X,Y);
procedure TForm1.dbgrd1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
Coord : TGridCoord;
begin
Coord := dbgrd1.MouseCoord(X,Y); //获取当前指针坐标对应的Grid行列坐标
if Coord.Y < 1 then Exit;
dbgrd1.DataSource.DataSet.RecNo := Coord.Y;
dbgrd1.Hint := dbgrd1.DataSource.DataSet.FieldByName('你要显示数据的列名').AsString;
end;