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 + ' '; end;
procedure TDBEdit.CMMouseLeave(var Msg: TMessage);
begin
Hint:= '';
end;
...
Un saludo.