Quick Tips : ScreenTipsManager e ScreenTipsPopup do Delphi Parte II

Olá galera, nesta Quick Tips irei continuar mostrando os dois componentes no Delphi chamado ScreenTipsManager e ScreenTipsPopup (Palheta Ribbon Controls) . Para montar o exemplo completo veja Quick Tips : ScreenTipsManager e ScreenTipsPopup Parte I

Configurando os componentes, continuação:

• ScreenTipsManager1 :

Propriedades :

-LinkedActionLists : Adicione um item

-DisplayOffset  X e Y : Posição que ira ficar o Hint

Figura 1

- Duplo Clique no ScreenTipsManager1 irá exibir a janela abaixo

Figura 2

Marrom : Todos os itens do ActionManager, para configurar um item basta selecionar Azul : Descrição e uma imagem para o Hint

Vermelho : Irá Exibir a imagem principal e de Rodapé

Preto : Estilo da Borda do Hint

Rosa : Efeito Gradiente para o fundo do Hint

Verde : Exibir ou não o cabeçalho e a Tecla de atalho

Amarelo : Título referente a tecla de atalho, e imagem para a tecla de atalho

                               Figura 3

• ScreenTipsPopup : Este componente permite associarmos estes hints do Ribbon, a componentes como Edit, Memo, Etc.

Propriedade :

Associate : Onde podemos associar um Objeto visual(Edit, Memo, por exemplo)

ScreenTipManager : ScreenTipsManager1

Visible : False

• EdtNome : Iremos implementar um recurso para deixar nosso ScreenTipsPopup Dinamico

Evento : onMouseMove

1.procedure TFrmPrincipal.EdtNomeMouseMove(Sender: TObject; Shift: TShiftState; X,

2.Y: Integer);

3.begin

4.With ScreenTipsPopup1 do

5.begin

6.Associate := TWinControl(Sender);

7.ScreenTip.Description.Clear;

8.ScreenTip.Description.Add('Hint Dinamico : ' + TWinControl(Sender).Name);

9.end;

10.end;

• EdtCPF

Evento : onMouseMove : apronte para o evento EdtNomeMouseMove

• Memo

Evento : onMouseMove : apronte para o evento EdtNomeMouseMove

Obs : Quando o mouse passar sem cima dos componentes o Hint será modificado e exibido

Fico por aqui até próxima Quick Tips.

Um abraço

Wesley Y

wyamazack@rwsolution.com.br