Ver Mensaje Individual
  #3  
Antiguo 24-01-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Una opción alternativa a la mencionada por Ñuño es:
Código Delphi [-]
..
type
  TDBEdit = class(DBCtrls.TDBEdit)
    procedure CMMouseEnter(var Msg: TMessage); message CM_MouseEnter;
    procedure CMMouseLeave(var Msg: TMessage); message CM_MouseLeave;
  end;
  TForm1 = class(TForm)
    ...
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    ...
  end;
...
implementation

procedure TDBEdit.CMMouseEnter(var Msg: TMessage);
begin
  Hint:= ' ' + Field.AsString + ' ';  // aca dale el formato que gustes
end;

procedure TDBEdit.CMMouseLeave(var Msg: TMessage);
begin
  Hint:= '';
end;
...


Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita