Показ всплывающих подсказок компонентов

В нормальной ситуации всплавающие подсказки появляются непосредственно под областью компонента. Возможно ли их показывать несколько выше?

unit Unit1;
interface
uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBTables, ExtCtrls;
type TForm1 = class(TForm) Button1: TButton;

procedure FormCreate(Sender: TObject); private { Private-Deklarationen } public { Public-Deklarationen } procedure DoShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo); end;
var Form1: TForm1;
implementation
{$R *.DFM} procedure TForm1.DoShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo); begin with HintInfo do if HintControl = Button1 then begin HintPos.X := Left + Button1.Left; HintPos.Y := Top + (Button1.Top); end; end;
procedure TForm1.FormCreate(Sender: TObject); begin Application.OnShowHint := DoShowHint; end;
end.

- Ralph Friedman [000951]

Содержание раздела