Hints ralentizan el ratón

[Beckham]

Saludos,

He insertado en mi aplicación un manejador para capturar el evento OnHint,


Application.OnHint := MostrarHint;
Y a su vez ese procedimiento lo que hace es mostrarme el Hint en el caption de un Tlabel.

procedure TForm1.MostrarHint(Sender: TObject);
begin
LabelHint.caption := GetLongHint(Application.Hint);
end;


Bien, pues el problema es que cuando paso el punteró del ratón por los controles que tienen la propiedad Hint inicializada, este va a saltos y me ralentiza el movimiento del puntero del ratón y esto me ocurre con más descaro en unos equipos que en otros siendo estos de similares características


¿Alguien puede ayudarme?


GRACIAS

[__cadetill]

Normalmente yo utilizo un TStatusBar (que para eso esta), pero bueno, con un TLabel deberia funcionar igual

procedure TfmMenu.FormCreate(Sender: TObject);
begin
     Application.OnHint := ShowHint;
end;

procedure TfmMenu.ShowHint(Sender: TObject);
begin
     Label1.Caption := Application.Hint;
end;

Lo que hago es definir un manejador del ShowHint, como tu, pero la diferencia es que se le tiene que asigar al Caption del TLabel (o el StatusBar), el Hint de la aplicacion.

Tambien puedes utilizar el componente TApplicationEvents (Delphi 6) e informar el evento OnHint (aunque, personalmente, me gusta mas lo del manejador)

Espero te sirva