Defina as seguintes variáveis:
FActive: boolean; FHint: THintWindow;
Utilize o método abaixo para desativar a janela de sugestão:
procedure DesativarSugestao; begin FActive := false; if Assigned(FHint) then begin FHint.ReleaseHandle; FHint.Free; FHint := nil; end; end;
Utilize o método abaixo para receber as mensagens de cliques do botão direito e esquerdo do mouse:
procedure AppMessage(var AMessage: TMsg; var Handled: Boolean); begin if (AMessage.Message = WM_LBUTTONDOWN) or (AMessage.Message = WM_RBUTTONDOWN) then if Assigned(FHint) and FHint.Visible then DesativarSugestao; end;
Método responsável por exibir a caixa de sugestão:
procedure mostrarSugestao(Sender: TObject); Var P: TPoint; R: TRect; Sugestao: string; begin if Assigned(FHint) and FActive then Exit; P.X := (Sender As TEdit).Left; P.Y := (Sender As TEdit).Top - 24; with R do begin topLeft := ClientToScreen(P); Right := Left + 150; Bottom := Top + 18; end; Sugestao := 'A sugestão é...'; // Ou (Sender As TEdit).Text FHint := THintWindow.Create(Self); FHint.ActivateHint(R, Sugestao); FActive := True; PostMessage(Handle, UM_EXITPROC, 0, 0); end;
No evento
OnEnter
doEdit
faça:procedure Edit1Enter(Sender: TObject); begin if not Assigned(FHint) and FActive = False then mostrarSugestao(Sender); end;
No evento
OnExit
doEdit
faça:procedure Edit1Exit(Sender: TObject); begin if Assigned(FHint) and FActive then DesativarSugestao; end;
No evento
OnKeyPress
doEdit
faça:procedure Edit1KeyPress(Sender: TObject; var Key: Char); begin if Assigned(FHint) and FActive then DesativarSugestao; end;
No evento
OnMouseEnter
faça:procedure Edit1MouseEnter(Sender: TObject); begin if not Assigned(FHint) and FActive = False then mostrarSugestao(Sender); end;
No evento
OnMouseLeave
faça:procedure Edit1MouseLeave(Sender: TObject); begin if Assigned(FHint) and FActive then DesativarSugestao; end;
No evento
OnCreate
do formulário faça:procedure FormCreate(Sender: TObject); begin Application.OnMessage := AppMessage; end;
Atualização: Abaixo da clausula Uses
defina a constante:
Uses
//....
Const
UM_EXITPROC = WM_USER + 42;
Utilize o método abaixo para desativar a janela de sugestão:
procedure DesativarSugestao; begin FActive := false; if Assigned(FHint) then begin FHint.ReleaseHandle; FHint.Free; FHint := nil; end; end;
Utilize o método abaixo para receber as mensagens de cliques do botão direito e esquerdo do mouse:
procedure AppMessage(var AMessage: TMsg; var Handled: Boolean); begin if (AMessage.Message = WM_LBUTTONDOWN) or (AMessage.Message = WM_RBUTTONDOWN) then if Assigned(FHint) and FHint.Visible then DesativarSugestao; end;
Método responsável por exibir a caixa de sugestão:
procedure mostrarSugestao(Sender: TObject); Var P: TPoint; R: TRect; Sugestao: string; begin if Assigned(FHint) and FActive then Exit; P.X := (Sender As TEdit).Left; P.Y := (Sender As TEdit).Top - 24; with R do begin topLeft := ClientToScreen(P); Right := Left + 150; Bottom := Top + 18; end; Sugestao := 'A sugestão é...'; // Ou (Sender As TEdit).Text FHint := THintWindow.Create(Self); FHint.ActivateHint(R, Sugestao); FActive := True; PostMessage(Handle, UM_EXITPROC, 0, 0); end;
No evento
OnEnter
doEdit
faça:procedure Edit1Enter(Sender: TObject); begin if not Assigned(FHint) and FActive = False then mostrarSugestao(Sender); end;
No evento
OnExit
doEdit
faça:procedure Edit1Exit(Sender: TObject); begin if Assigned(FHint) and FActive then DesativarSugestao; end;
No evento
OnKeyPress
doEdit
faça:procedure Edit1KeyPress(Sender: TObject; var Key: Char); begin if Assigned(FHint) and FActive then DesativarSugestao; end;
No evento
OnMouseEnter
faça:procedure Edit1MouseEnter(Sender: TObject); begin if not Assigned(FHint) and FActive = False then mostrarSugestao(Sender); end;
No evento
OnMouseLeave
faça:procedure Edit1MouseLeave(Sender: TObject); begin if Assigned(FHint) and FActive then DesativarSugestao; end;
No evento
OnClick
doEdit
faça:procedure TForm1.Edit1Click(Sender: TObject); begin if Assigned(FHint) and FActive then DesativarSugestao; end;
No evento
OnCreate
do formulário faça:procedure FormCreate(Sender: TObject); begin Application.OnMessage := AppMessage; end;
O resultado deverá ser semelhante a isto: