Mostrar valor de uma c�lula do grid num Hint

Question

[b:2152548f3f]Caros colegas,Num determinado DbGrid, em algumas c�lulas o valor � maior do que o espa�o da mesma, como fa�o para mostrar num hint este valor sem ter que redimensionar o valor da c�lula,...

Ponce :) · Answer

[b:e1ed806226]E a� galera,

Continuo insistindo em perguntar se algu�m conhece uma rotina para minha quest�o, at� agora n�o tive nenhuma resposta.

Se algu�m puder me ajudar

Ponce:)[/b:e1ed806226]

Ponce :) · Answer

E a� galera, Mais uma vez insisto em perguntar se algu�m conhece uma rotina para minha quest�o, at� agora n�o tive nenhuma resposta. Se algu�m puder me ajudar Ponce:)...

Ponce :) · Answer

Por favor, algu�m a� me ajuda....

Beppe · Answer

Coloca um ApplicationEvents e cria um handler pro OnShowHint:

procedure TForm1.ApplicationEvents1ShowHint(var HintStr: String;
  var CanShow: Boolean; var HintInfo: THintInfo);
var
  TheCol, TheRow: Integer;
begin
  if HintInfo.HintControl is TStringGrid then
    with TStringGrid(HintInfo.HintControl) do
    begin
      MouseToCell(HintInfo.CursorPos.X, HintInfo.CursorPos.Y, TheCol, TheRow);
      if (TheCol >= 0) and (TheRow >= 0) then
      begin
        HintStr := Cells[TheCol, TheRow];
        CanShow := Canvas.TextWidth(HintStr) > ColWidths[TheCol];
      end;
    end;
end;

Mas assim ele n�o atualiza automaticamente quando o cursor vai pra outra c�lula, tem que esperar o hint baixar.

Ponce :) · Answer

Quero agradecer a ajuda do Ataliba, mas a rotina que ele me respondeu funciona num StringGrid, mas infelizmente n�o funciona num DBGrid, espero agora por outras rotinas de colegas que possam funcionar no DBGrid.

F�rum Mostrar valor de uma c�lula do grid num Hint #182089