Colocar hint numa linha e/ou coluna do TDBGrid

Colocar hint numa linha e/ou coluna do TDBGrid

  junho 23, 2015    Ana Paula Novello

---

A propriedade Hint do DBGrid é estática, isto é, o texto colocado lá aparece quando o mouse aponta para o Grid. Porém o que eu precisava era mostrar o conteúdo de uma célula no Hint. Isto é, muito útil quando a coluna possui uma largura pequena e o texto contido no registro é muito grande.

Para adicionar um hint numa determinada linha e/ou coluna de um TDBGrid

Coloque este comando no evento OnMouseMove do TDBGrid

procedure TForm4.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  DBGrid1.ShowHint := True;
  case DBGrid1.MouseCoord(X, Y).X of  {Coluna posicionada }
    1 : DBGrid1.Hint := 'Exemplo - Código';
    2 : DBGrid1.Hint := 'Exemplo - Descrição';
    3 : DBGrid1.Hint := 'Exemplo - Observação';
    else DBGrid1.ShowHint := False;
  end;
end;

Obs:

• X representa o nº da coluna (column);
• Y representa o nº da linha (row)

Exemplo: Download do exemplo