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