See this example attached works with DbGrid but does not work with DBGridEh
I enabled ShowHint on Grid and ToopTips on columns
Code:
Function TForm1.ChangeHint(C: TControl; Const Hint: String; p: TPoint): Boolean;
begin
if Hint <> OldHint then begin
OldHint := C.Hint;
C.Hint := Hint;
Application.ActivateHint(p);
end;
procedure TForm1.DBGridEh1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Var Dados : string;
begin
Dados := DBGridEh1.DataSource.Dataset.FieldByname('CODIGO').Asstring + ' ';
Dados := Dados + DBGridEh1.DataSource.Dataset.FieldByname('MERCADORIA').Asstring + #13;
ChangeHint(TDBGridEh(Sender), Dados + ' - TDBGridEh', TDBGridEh(Sender).ClientToScreen(Point(X, Y)));
end;
end;