Mostrar valor de uma célula do grid num Hint

Delphi

15/09/2003

[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, mas tem que mostrar o valor apenas nas células em que os valores são maiores do que o tamanho da célula.

Alguém pode me ajudar :?: [/b:2152548f3f]


Ponce :)

Ponce :)

Curtidas 0

Respostas

Ponce :)

Ponce :)

15/09/2003

[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]


GOSTEI 0
Ponce :)

Ponce :)

15/09/2003

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:)


GOSTEI 0
Ponce :)

Ponce :)

15/09/2003

Por favor, alguém aí me ajuda.


GOSTEI 0
Beppe

Beppe

15/09/2003

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.


GOSTEI 0
Ponce :)

Ponce :)

15/09/2003

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.


GOSTEI 0
POSTAR