Vise/opdatere hints når form ikke har fokus

Fandt dette her på Delphi3000:

private
  fHintWindow: THintWindow;

  procedure TForm1.ActivateHintNOW( x,y: Integer);
  var
    Rect: TRect;
    HintText: string;
  begin
    HintText := 'A hint, please...';
    if HintText <> '' then
    begin
      Rect := HintWindow.CalcHintRect(Screen.Width, HintText, nil);
      Rect.Left := Rect.Left + x;
      Rect.Right := Rect.Right + x;
      Rect.Top := Rect.Top + y;
      Rect.Bottom := Rect.Bottom + y;
      HintWindow.ActivateHint(Rect, HintText);
    end;
  end;

Eksemplet opretter et hint-vindue uafhængigt af de der måtte være.

Hvis du vil have en komponents hint til atp oppe frem kan du gøre:

  Application.ActivateHint(Point(ToolButton.Left,ToolButton.Top));

... men intet af dette er testet.

Jeps, efter at have bygget det sammen med "onMouseMove" på komponent, klarer det første eksempel ærterne. Der er points igen :)

OK.