procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);var coords:TGridCoord; // 这个结构体中x是列,y 是行begin coords := dbgrid1.MouseCoord(x,y); // 根据鼠标位置获得行列 Self.Caption := IntToStr(coords.X)+' ' + IntToStr(coords.Y);end;