Hints ralentizan el ratón

__cadetill · #2 09-08-2003

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

Código:

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