Posição do Hint

[Paulo Afonso Cordeiro 0]

Pessoal ,To com uma dúvida que não encontrei solução, tenho uma barra de status e no evento de passar o mouse eu exibo o hint, só que se a tela do programa estiver maximizada, o hint aparece em cima do conteúdo da barra de status.Como faço pro hint aparecer em cima da barra da status, independente do tamanho ou da posição, da mesma forma que ocorre com a barra de tarefas do Windows????Valeu

[marcio.theis 3]

Desculpa, mas não entendi o seu problema, ficou um pouco confuso, não teria como colocar um exemplo do que acontece ?

[Pantoja 5]

acho q é isso q você quer:clica na barra de status.. agora procure a propriedade AUTOHINT e liga ela...isso deve resolver...ahh mas o componete qqueer na tela tem q ter um hint ne?e nao necessariamente com a OPCAO SHOW HINT true nao ok?basta ter um hint!abrasssssss

[Paulo Afonso Cordeiro 0]

Marcio, Vou tentar me explicar, sabe o retângulo amarelo do Hint?Pois é, quando eu passo o mouse na barra de status, ele(retângulo) aparece em cima da barra de status, ofuscando o conteúdo da mesma.Gostaria de saber como faço para forçar o retangulo aparecer numa posição acima da barra de status.Pantoja, o recurso do AUTOHINT é interessante mas não atende a requisição dos usuários.Obrigado a ambos.

[marcio.theis 3]

Entendi, no caso você terá de trabalhar com o Hint mesmo, mudando ele de posição, pode fazer o seguinte, no OnCreate do seu form, coloque:

 

Application.OnShowHint:=MeuHint;

E crie a procedure:

 

procedure TForm1.MeuHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);beginHintInfo.HintPos.X:=StatusBar1.ClientOrigin.X + 5;HintInfo.HintPos.Y:=StatusBar1.ClientOrigin.Y - 18;end;

No caso ele vai pegar e sempre colocar o Hint sobre o StatusBar...

Mas se quiser somente um controle para quando estiver mexendo no hint do StatusBar, pode fazer algo assim:

 

procedure TForm1.MeuHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);beginif HintInfo.HintControl.ClassType = TStatusBar then	begin	HintInfo.HintPos.X:=StatusBar1.ClientOrigin.X + 5;	HintInfo.HintPos.Y:=StatusBar1.ClientOrigin.Y - 18;	end;end;

[Pantoja 5]

Boa solução Marcio.. com isso 'engana' a Posição da "hint" né?

[marcio.theis 3]

Sim, desta forma você determina onde quer que fique o Hint, no caso poderia ainda mudar fonte, ou seja, fazer várias coisas com o Hint.

[Pantoja 5]

agora esse 'meuhint' é de q tipo cara??

[marcio.theis 3]

No caso é a declaração da função, poderia colocar qualquer nome...

[Paulo Afonso Cordeiro 0]

Pessoal valeu pela ajuda... É exatamente o que estou precisando.Pantoja é só fazer da forma que o Marcio explicou.MeuHint não é tipo e sim procedimento.Valeu!!!!!

[Pantoja 5]

mal la a pergunta.. foi quase q um "ato falho"sim simuma procedure... q viagem a minha!curti isso aee Marcio... show mesmo!obrigado!