mira...un poco mas elaborado...ahora te lo pongo...
Código Delphi
[-]
var
t : TGridCoord;
s : string;
begin
t := DBGrid1.MouseCoord(X,Y);
if (t.x < 0) or (t.y < 0) or (t.x > DBGrid1.Columns.Count) then exit;
StaticText1.Left := X;
StaticText1.Top := Y;
StaticText1.Caption := 'Esta es la columna ' + inttostr(t.X) + ' de la linea ' + inttostr(t.y);
StaticText1.Caption := StaticText1.Caption + ' el campo es ' + DBGrid1.Columns[t.x-1].FieldName;
StaticText1.Caption := StaticText1.Caption + ' y su valor es ' + DBGrid1.Columns[t.x-1].Field.Asstring;
StaticText1.Color := (random($0D0D0D) + $FDFDFD) mod $FDFDFD;
end;
como ves, uso un statictext exterior...puedes usar tb una paintbox para pintar en ella mediante el canvas, q puede quedar mas bonito y hacer mas efectos...es cuestion de imaginacion...
venga, un saludo.