Código Delphi
[-]
nPause:=Application.HintHidePause;
Application.HintHidePause := 15000;
application.Hintcolor:=clAqua;
....
procedure TfrMargen1producto.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.HintHidePause := nPause;
Application.Hintcolor:=Clinfobk;
Action:=CaFree;
end;
Cita:
Specifies the time interval to wait before hiding the Help Hint if the mouse has not moved from the control or menu item.
property HintHidePause: Integer;
Description
Use HintHidePause to specify a wait time in milliseconds, which is different from the default value of 2500 ms or 2 1/2 seconds that is set in the constructor. The Help Hint for the control or menu item is specified in the Hint property.
Note: The default is a predefined constant value that is several times longer than HintPause.
|
Aquí tienes un ejemplo y la explicación de la ayuda de Delphi.
Un Saludo.