Fórum Montando Hint no Dbgrid #365519

procedure AppShowHint(var HintStr: String; var CanShow: Boolean; var HintInfo: THintInfo);

procedure TfPrincipal.AppShowHint(var HintStr: String; var CanShow: Boolean;
  var HintInfo: THintInfo);
Var
  curPos : LongInt;
  gridCoord: TGridCoord;
begin
  with HintInfo do
  begin
    if HintControl is TDBGrid then
    with TDBGridDescendant(HintControl),gridCoord do
    begin
      Application.HideHint;
      //Tempo que demora para exibir novamente
      //se continuar com o mouse sobre o DBGrid
      ReshowTimeout := 1500;
      HintColor := clInfoBk;
      //Largura Máxima da janela de Hint
      //HintMaxWidth := 160;
      gridCoord := MouseCoord(CursorPos.x,CursorPos.y);
      try
        curPos := DataLink.ActiveRecord;
        try
          DataLink.ActiveRecord := y-1;
          if not((x-1)< 0) and not((y-1)< 0) and (x-1 <= FieldCount) then
          begin
            if Fields[x-1].DataType = ftMemo then
            begin
              HintStr := Fields[x-1].AsWideString;
            end
            else
            if Fields[x-1].DataType = ftBoolean  then
            begin
              if Fields[x-1].AsBoolean  then
              begin
                HintSTr := ´Sim´;
              end
              else
              begin
                HintStr := ´Não´;
              end;
            end
            else
            begin
              HintStr := Fields[x-1].AsString
            end;
          end
          else
            HintStr := ´\´;
        finally
          DataLink.ActiveRecord := CurPos
        end;
        CanShow := not((x-1)< 0) and not((y-1)< 0) and (x-1 <= FieldCount)
      except
        CanShow := False
      end;
    end;
  end;
end;

  Application.ShowHint := True;
  ApplicationEvents1.OnShowHint := AppShowHint;

type
  TDBGridDescendant = class(TDBGrid);