Hint para linhas do DBgrid

Question

Ol�! Gostaria de saber se algu�m conhece algum modo de exibir um Hint diferente para cada linha do DBGrid. Por exemplo: se o usu�rio deixar o mouse em cima de uma determinada linha do Grid apontando por exemplo para uma tabela de clientes e eu quisesse mostrar no Hint a �ltima compra feita por esse cliente.

Fabio_lamber · Answer

Amigo faz assimMostrar o Hint para cada coluna do StringGrid
Para testar o exemplo abaixo inclua no seu form um componente StringGrid

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
procedure FormCreate(Sender: TObject);
procedure StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
Col,Row : integer; // Declarar esta vari�vel
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
// Evento OnCreate do Form
procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.Hint := �0 0�;
StringGrid1.ShowHint := True;
end;
// Evento OnMouseMove do componente StringGrid
procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
var r,c : integer;
begin
StringGrid1.MouseToCell(X, Y, C, R);
if ((Row <> r) or (Col <> c)) then
begin
Row := r; Col := c;
Application.CancelHint;
StringGrid1.Hint := �Linha: �+IntToStr(r)+#32+�Coluna: �+IntToStr(c);
end;
end;

Delphi32 · Answer

baseado no seu c�digo adaptei para o seguinte no DBGrid:

procedure TForm1.DBGrid1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var t:TGridCoord;
begin
   t := DBGrid1.MouseCoord(X,Y);
   Application.CancelHint;
   DBGrid1.Hint := �X: �+IntToStr(t.X)+#1310+
                   �Y: �+IntToStr(t.Y);
end;

O problema � que se a pessoa est� na linha 1 e coluna 1 e depois desce a barra de rolagem mas continua passando o mouse sobre a linha 1 e coluna 1 relativa ele ainda retorna esse 1,1. O que eu queria na verdade era descobrir qual linha da tabela � aquela onde o mouse est� passando por cima.

Alguem tem alguma id�ia?

at�!

F�rum Hint para linhas do DBgrid #253707