Hint (Resolvido)

[Paulo Nobre]

Como fazemos para mudar a cor da fonte de um HINT ?

Esta pergunta foi feita aqui uma vez sem nenhuma resposta!!

A única coisa que encontrei na net(que coincide mais ou menos com uma das dicas desses programas de 800 dicas está aí abaixo). Tentei usar e não funcionou.

Procedure TForm1.MyShowHint(Var HintStr : String ;

Var CanShow : Boolean ;

Var HintInfo : THintInfo) ;

Var i : Integer ;

Begin

For i := 0 To Application.ComponentCount - 1 Do

If Application.Components Is THintWindow Then

With THintWindow(Application.Components) Do

Begin

Canvas.Font.Name := 'Courrier' ;

Canvas.Font.Size := 12 ;

Canvas.Font.Style := [fsBold] ;

HintInfo.HintColor := clAqua ;

End ;

End ;

Porém, eu quero apenas apontar com o mouse para o meu form e que ele exiba

o hint com letras de cor branca(clWhite).

Isto na realidade seria codificado no ONSHOW.

[pdelphi]

Use a LMD TOOLs. Na palheta LMD Sys, tem um componente hint, que muda a cor da fonte, do fundo, forma de balão, elipse, e etc... E já está pronto e é free.

http://www.lmd.de/

[Paulo Nobre]

Valeu PDelphi,

Obrigado.