Как сделать Hint над Edit'ом

[hon]

Как такое реализовать в Delphi?
Пример:

[Баламут]

Примерно так. С деталями думаю разберешься

var
  hnw: THintWindow;
  r: TRect;
..........................
    hnw := THintWindow.Create(Self);
    hnw.ActivateHint(r, 'Недопустимый символ');
    .................
    hnw.ReleaseHandle;

[GunSmoker]

EM_SHOWBALLOONTIP

[GunSmoker]

unit BalloonTooltips;

interface

uses
  Windows, SysUtils, Dialogs, Controls;

procedure BTMessageDlg(const Msg: WideString; DlgType: TMsgDlgType;
                        AEditorControl : TWinControl);
procedure BTShowMessage(const Msg: string;
                        AEditorControl : TWinControl); 
procedure BTShowMessageFmt(const Msg: string; Params : array of const;
                        AEditorControl : TWinControl);
procedure BTShowError(const Msg: string;
                        AEditorControl : TWinControl);
procedure BTShowErrorFmt(const Msg: string; Params : array of const;
                        AEditorControl : TWinControl);
procedure BTShowWarning(const Msg: String;
                        AEditorControl: TWinControl);
procedure BTShowWarningFmt(const Msg: string; Params : array of const;
                        AEditorControl : TWinControl);
procedure BTShowInfo(const Msg: string;
                        AEditorControl : TWinControl);
procedure BTShowInfoFmt(const Msg: string; Params : array of const;
                        AEditorControl : TWinControl);
function  BTCancel(AEditorControl : TWinControl): Boolean;

implementation

uses
  Messages;

type
  _tagEDITBALLOONTIP = packed record
    cbStruct: DWORD;
    pszTitle: LPCWSTR;
    pszText: LPCWSTR;
    ttiIcon: Integer;
  end;
  PEditBalloonTip = ^TEditBalloonTip;
  TEditBalloonTip = _tagEDITBALLOONTIP;

const
  ECM_FIRST                   = $1500;
  EM_SHOWBALLOONTIP           = ECM_FIRST + 3;
  EM_HIDEBALLOONTIP           = ECM_FIRST + 4;
  TTI_NONE                    = 0;
  TTI_INFO                    = 1;
  TTI_WARNING                 = 2;
  TTI_ERROR                   = 3;

resourcestring
  BTError = 'Ошибка';
  BTInfo = 'Информация';
  BTWarning = 'Предупреждение';

function Edit_ShowBalloonTip(hwnd: HWND; const peditballoontip: TEditBalloonTip): BOOL;
begin
  Result := BOOL(SendMessage(hwnd, EM_SHOWBALLOONTIP, 0, lParam(@peditballoontip)));
end;

function Edit_HideBalloonTip(hwnd: HWND): BOOL; 
begin
  Result := BOOL(SendMessage(hwnd, EM_HIDEBALLOONTIP, 0, 0));
end;

procedure BTMessageDlg(const Msg: WideString; DlgType: TMsgDlgType;
                        AEditorControl : TWinControl);
var
  Caption: WideString;
  Params: TEditBalloonTip;
begin
  Assert(AEditorControl <> nil);
  FillChar(Params, SizeOf(Params), 0);
  Params.cbStruct := SizeOf(Params);
  case DlgType of
    mtWarning:
    begin
      Caption := BTWarning;
      Params.pszTitle := PWideChar(Caption);
      Params.pszText := PWideChar(Msg);
      Params.ttiIcon := TTI_WARNING;
    end;
    mtError:
    begin
      Caption := BTError;
      Params.pszTitle := PWideChar(Caption);
      Params.pszText := PWideChar(Msg);
      Params.ttiIcon := TTI_ERROR;
    end;
    mtInformation, mtConfirmation:
    begin
      Caption := BTInfo;
      Params.pszTitle := PWideChar(Caption);
      Params.pszText := PWideChar(Msg);
      Params.ttiIcon := TTI_INFO;
    end;
  else
    begin
      Params.pszTitle := nil;
      Params.pszText := PWideChar(Msg);
      Params.ttiIcon := TTI_NONE;
    end;
  end;
  Edit_ShowBalloonTip(AEditorControl.Handle, Params);
end;

procedure BTShowMessage(const Msg: string;
                        AEditorControl : TWinControl);
begin
  BTMessageDlg(Msg, mtCustom, AEditorControl);
end;

procedure BTShowMessageFmt(const Msg: string; Params : array of const;
                        AEditorControl : TWinControl);
begin
  BTMessageDlg(Format(Msg, Params), mtCustom, AEditorControl);
end;

procedure BTShowError(const Msg: string;
                        AEditorControl : TWinControl); 
begin
  BTMessageDlg(Msg, mtError, AEditorControl);
end;

procedure BTShowErrorFmt(const Msg: string; Params : array of const;
                        AEditorControl : TWinControl);
begin
  BTMessageDlg(Format(Msg, Params), mtError, AEditorControl);
end;

procedure BTShowWarning(const Msg: String;
                        AEditorControl: TWinControl);
begin
  BTMessageDlg(Msg, mtWarning, AEditorControl);
end;

procedure BTShowWarningFmt(const Msg: string; Params : array of const;
                        AEditorControl : TWinControl);
begin
  BTMessageDlg(Format(Msg, Params), mtWarning, AEditorControl);
end;

procedure BTShowInfo(const Msg: string;
                        AEditorControl : TWinControl);
begin
  BTMessageDlg(Msg, mtInformation, AEditorControl);
end;

procedure BTShowInfoFmt(const Msg: string; Params : array of const;
                        AEditorControl : TWinControl);
begin
  BTMessageDlg(Format(Msg, Params), mtInformation, AEditorControl);
end;

function  BTCancel(AEditorControl : TWinControl): Boolean;
begin
  Result := Edit_HideBalloonTip(AEditorControl.Handle);
end;

end.

[FaTaL]

В последних версиях Delphi если Едиту поставить свойство не помню как точно, но примерно NumberOnly в True, то такой хинт сам по себе будет выходить.