Quick Tips : ScreenTipsManager e ScreenTipsPopup do Delphi Parte II

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Nesta Quick iremos conhecer ScreenTipsManager e ScreenTipsPopup



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

 

             Figura 4

 

 

Fico por aqui até próxima Quick Tips.

 

Um abraço

 

Wesley Y

wyamazack@rwsolution.com.br



 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?