Função para mostrar um balão de informações em determinado campo de texto.

type TEditBalloonTip = packed record
  cbStruct: DWORD ;
  pszTitle: LPCWSTR ;
  pszText: LPCWSTR;
  ttiIcon: Integer;
end;
 
CONST
  ECM_FIRST         = $00001500;
  EM_SHOWBALLOONTIP = ECM_FIRST + 3;
 
procedure mostrarBalao(titulo, texto: PWideChar; icone: integer; controle : TEdit);
var
  editBalloonTip : TEditBalloonTip;
begin
  EditBalloonTip.cbStruct := SizeOf(TEditBalloonTip);
 
  EditBalloonTip.pszText  := Texto;
 
  EditBalloonTip.pszTitle := Titulo;
 
  EditBalloonTip.ttiIcon  := icone;
 
  SendMessageW(controle.Handle, EM_SHOWBALLOONTIP, 0,Integer(@EditBalloonTip));
end;

titulo = Título que deverá aparecer no balão de informação
texto = Texto que deverá aparecer no balão de informação
icone = Ícone que deverá aparecer no balão de informação, de acordo com a seguinte tabela:

controle = Controle onde o balão de informação deverá aparecer