TTestGrid = class(TCustomDBGrid)
end;
procedure TMainFrm.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
OldActive : Integer;
begin
if (DBGrid1.MouseCoord(X,Y).X = 0) or (DBGrid1.MouseCoord(X,Y).Y = 0) then
exit;
if (DBGrid1.MouseCoord(X,Y).X = -1) or (DBGrid1.MouseCoord(X,Y).Y = -1) then
exit;
OldActive := TTestGrid(DBGrid1).DataLink.ActiveRecord;
try
TTestGrid(DBGrid1).DataLink.ActiveRecord := DBGrid1.MouseCoord(X,Y).Y - 1;
Label2.Caption := DBGrid1.Fields[DBGrid1.MouseCoord(X,Y).X - 1].AsString;
finally
TTestGrid(DBGrid1).DataLink.ActiveRecord := OldActive;
end;
end;