Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   sobreimpresion (https://www.clubdelphi.com/foros/showthread.php?t=6883)

santiago14 26-01-2004 21:34:24
sobreimpresion
 
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 26-01-2004 22:25:44
Has probado algo así:
Código:
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.


La franja horaria es GMT +2. Ahora son las 08:28:49.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi