Question

delphi dbgrid 鼠标提示

新手哎 请指导详细点吧...
dbgrid显示出查询结果了. 一条记录在里面就是一行吧.
想让鼠标停留在一行上 显示这行的一个值 .. 就像我们鼠标停留在百度logo上的效果一样.
每行有几个值 . 想显示其中一个值 能显示一次查询结果吗?

Answer 1

将 DBGrid 的ShowHint 设置为true；
在DBGrid的 OnMouseMove事件中写上
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;

Answer 2

鼠标停留倒是没弄过，不过鼠标点击倒是可以