Ver Mensaje Individual
  #3  
Antiguo 16-12-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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; // ms.
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 16-12-2014 a las 15:32:35.
Responder Con Cita