AJUDA ::.... HINT !!!

Delphi

05/08/2003

Olá pessoal

o nosso companheiro Marcelo Saviski me ajudou em parte do meu problema. Estou precisando exibir o hint de um edit no meu statusbar sem passar o mouse em cima dele, isso está ok, preciso ainda fazer q o balão de hint tb seja exibido qdo o foco estiver no Edit.

a solução do Marcelo para exibir o hint na Statusbar foi: coloque StatusBar.Panels[0].Text := TEdit(Sender).Text;

mas além disso preciso exibir o balão do hint, sem passar o mouse por cima.

agradecido

Diogo
diogoalles@terra.com.br


Diogoalles

Diogoalles

Curtidas 0

Respostas

Nildo

Nildo

05/08/2003

Bom. Eu fiz esse codigo pra vc.. C vc num entender me fala q eu explico.
Primeiro declare esta procedure no form q vc vai usar:
procedure MostraHintNoOnFocus(var Msg: TMessage); message cm_focuschanged;

Agora vc coloca esta procedure no seu form:
procedure TFrmCad.MostraHintNoOnFocus(var Msg: TMessage);
var
   nAux: Integer;
begin
   for nAux := 0 to ComponentCount -1 do
      if (Components[nAux] is TWinControl) and (TWinControl(Components[nAux]).Focused) then
         Caption := TWinControl(Components[nAux]).Hint;
end;

Pronto![/code]


GOSTEI 0
POSTAR