Hola de nuevo Jorge.
No hay problema por la confusión.
Te agrego unas líneas de código de ejemplo que te van a permitir un mayor manejo de los Hints mediante la clase
THintWindow:
Código Delphi
[-]
...
type
TMiHintWindow = Class (THintWindow)
constructor Create (AOwner: TComponent); override;
end;
TForm1 = class(TForm)
BitBtn1: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
FOldHintWindow: THintWindowClass;
FHintColor: TColor;
FHintPause: Integer;
FHintHidePause: Integer;
public
end;
var
Form1: TForm1;
implementation
constructor TMiHintWindow.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Canvas.Font.Name := 'Comic Sans MS' ; Canvas.Font.Size := 15; Canvas.Font.Style:= [fsBold]; end;
procedure TForm1.FormCreate(Sender: TObject);
begin
with Application do
begin
FOldHintWindow := HintWindowClass;
ShowHint := false;
HintWindowClass:= TMiHintWindow;
ShowHint := True;
FHintColor := HintColor;
FHintPause := HintPause;
FHintHidePause := HintHidePause;
HintColor := clYellow; HintPause := 50; HintHidePause := 1600; end;
end;
...
procedure TForm1.FormDestroy(Sender: TObject);
begin
with Application do
begin
HintColor := FHintColor;
HintPause := FHintPause;
HintHidePause:= FHintHidePause;
end;
HintWindowClass:= FOldHintWindow;
end;
Saludos