sobreimpresion

[santiago14]

Normalmente en el panel izquierdo del explorador de windows aparecen las carpetas ordenadas en forma de arbol, su dibujito y su nombre, cuando el nombre el demasiado largo y no alcanza a leérselo completamente en el panel para poder leerlo entero se pone el mouse encima del nombre de la carpeta en cuestion y aparece sobreimpreso el nombre de la carpeta, esta vez completo.
Bueno, resulta que tengo un dbgrid y un stringGrid que en algunas de sus celdas aparecen frases largas y queda antiestetico hacer una celda muy larga solo para poder leer completamente el texto y ademas no tiene sentido.
Quisiera hacer los sobreimpresos del texto de esas celdas ya sea haciendo click sobre la celda o acercando el mouse al texto o de alguna forma. Probe con la propiedad Hint pero no he tenido buenos resultados.
Lo que quiero es comun en las aplicaciones de hoy en dia y supongo que no es tan complicado lograrlo....
Gracias de antemano.

Santiago

[marcoszorrilla]

Has probado algo así:

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  if DbGrid1.selectedIndex = 3 then
  begin
  DbGrid1.ShowHint:=True;
  DbGrid1.Hint:=Table1Titular.AsString;
  end
  else
  DbGrid1.ShowHint:=False;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Application.HintColor:=clFuchsia;
Application.HintHidePause:=10000;
end;

Un Saludo.