Mostrar aviso em forma de hint

Mostrar aviso em forma de hint

  novembro 01, 2019    Ana Paula Novello

---

Vamos mostrar uma mensagem e aguardar alguns segundos e depois ocultá-la. A rotina abaixo mostra a mensagem de aviso em forma de "Hint", aguarda o tempo especificado e finalmente retira a mensagem da tela.

procedure TFSistema.MensagemHint(const AMensagem: string; const ATempo: Integer);
var
  R: TRect;
  X: integer;
begin
  with THintWindow.Create(Application) do begin
    try
      { Calcula o retângulo }
      R := CalcHintRect(Screen.Width, AMensagem, nil);
      { Centraliza horizontalmente }
      X := R.Right - R.Left + 1;
      R.Left := (Screen.Width - X) div 2;
      R.Right := R.Left + X;
      { Centraliza verticalmente }
      X := R.Bottom - R.Top + 1;
      R.Top := (Screen.Height - X) div 2;
      R.Bottom := R.Top + X;
      { Mostra }
      ActivateHint(R, AMensagem);
      Update;
      { Aguarda }
      Sleep(ATempo);
    finally
      Free;
    end;
  end;
end;

Como colocar no sistema

  MensagemHint('Mensagem de imergência ' + sLineBreak + 
'Vamos testar a mensagem com o Hint ', 1000); { Aguarda 1 segundos e some}

Exemplo: Download do exemplo