在Delphi中DBGrid有一个MouseMove事件,当鼠标移动时怎么知道光标在哪个单元格上面

时间:2021-04-07 19:33:01

 

 

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;