实现定制的THintWindow后怎么调用啊？（第2个问题向前十名挑战）

Question

TMyHinWindow = class(THintWindow)
  private
    procedure WMNCPaint(var Message: TMessage); message WM_NCPAINT;
    procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;
  protected
    procedure Paint; override;
    procedure CreateParams(var Params: TCreateParams); override;
  public
    procedure ActivateHint(HintRect: TRect; const AHint: string); override;
  end;

Answer 1

修改全局变量HintWindowClass：
HintWindowClass:=TMyHintWindow;