Hola jocaro.
Por lo que puedo entender, deseas que se refresque el
Hint al mover el mouse sobre el
TSpeedButton. Si es así, podes usar el evento
OnShowHint:
Código Delphi
[-]
...
type
TForm1 = class(TForm)
SpeedButton1: TSpeedButton;
...
private
procedure AppShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);
...
end;
..
implementation
procedure TForm1.AppShowHint(var HintStr: string; var CanShow: Boolean;
var HintInfo: THintInfo);
begin
HintInfo.ReShowTimeout:= 10; end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnShowHint:= AppShowHint;
end;
procedure TForm1.SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
TSpeedButton(Sender).Hint:= Format('X: %d, Y: %d', [X,Y]);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
HintInfo.ReShowTimeout:= 0;
end;
Saludos
![Smilie](http://www.clubdelphi.com/foros/images/smilies/smile.gif)