Usando TJvDBGrid – Parte 4

Continuando a série de artigos sobre o TJvDBGrid, hoje vou mostrar como colocar hints que mostram o conteúdo não visível de um campo, inclusive para campos blob.

Informação

• Você pode baixar os componentes JEDI VCL em http://jvcl.delphi-jedi.org/
• Recomendamos a leitura dos artigos Usando TJvDBGrid - Part2 e Usando TJvDBGrid - Part3

A propriedade que usaremos é a ShowCellHint. Em nosso exemplo vamos usar basicamente:
1 TForm
1 TClientDataSet
1 TDataSource
1 TJvDBGrid.

No TClientDataSet criar os seguintes campos:
CODIGO :Integer
NOME :String
TELEFONE :String
Deixe a propriedade ShowCellHint com o valor true
Agora basta iniciar algumas informações na Grid. O exemplo de código abaixo fará isso.

procedure TForm2.FormCreate(Sender: TObject);
begin
   ClientDataSet1.CreateDataSet;

   ClientDataSet1.Append;
   ClientDataSet1CODIGO.AsInteger := 1;
   ClientDataSet1NOME.AsString := 'Jocimar de Souza Medeiros';
   ClientDataSet1TELEFONE.AsString := '44 9999-2233';
   ClientDataSet1.Post;

   ClientDataSet1.Append;
   ClientDataSet1CODIGO.AsInteger := 2;
   ClientDataSet1NOME.AsString := 'Silvana Rodrigues de Mello';
   ClientDataSet1TELEFONE.AsString := '44 9899-2266';
   ClientDataSet1.Post;
end;

Dica

• Lembre-se de que a propriedade showHint deverá estar com o valor true também

É isso aí então pessoal! Agora quando uma informação na TJvDBGrid ficar oculta parcialmente e passarmos o mouse sobre essa informação, será mostrada um hint com o restante do conteúdo.

Em caso de dúvidas, sugestões ou reclamações, por favor comentem o post. E se a informação ajudou você, curta o post nas redes sociais usando os ícones abaixo.

Baixe os fontes do artigo no GitHub