Skip to main content
2 de 3
adicionou 5 caracteres ao conteúdo
stderr
  • 30,9mil
  • 5
  • 49
  • 76

Uma outra forma de fazer isto, que também trabalha em cima dos eventos, é criar a tua própria janela de sugestão com a classe THintWindow como sugere este artigo.

  1. Defina as seguintes variáveis:

    FActive: boolean;
    FHint: THintWindow;
    
  2. 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;
    
  3. 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;
    
  4. 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;
    
  5. No evento OnEnter do Edit faça:

    procedure Edit1Enter(Sender: TObject);
    begin
      if not Assigned(FHint) and FActive = False then
        mostrarSugestao(Sender);
    end;
    
  6. No evento OnExit do Edit faça:

    procedure Edit1Exit(Sender: TObject);
    begin
      if Assigned(FHint) and FActive then
        DesativarSugestao;
    end;
    
  7. No evento OnKeyPress do Edit faça:

    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    begin
      if Assigned(FHint) and FActive then
        DesativarSugestao;
    end;
    
  8. No evento OnMouseEnter faça:

    procedure Edit1MouseEnter(Sender: TObject);
    begin
      if not Assigned(FHint) and FActive = False then
        mostrarSugestao(Sender);
    end;
    
  9. No evento OnMouseLeave faça:

    procedure Edit1MouseLeave(Sender: TObject);
    begin
      if Assigned(FHint) and FActive then
        DesativarSugestao;
    end;
    
  10. No evento OnCreate do formulário faça:

    procedure FormCreate(Sender: TObject); begin Application.OnMessage := AppMessage; end;

stderr
  • 30,9mil
  • 5
  • 49
  • 76