TBalloonHint气泡提示的用法(How to use TBalloonHint)

XE中提供了一个非常简单实用的气泡提示组件TBalloonHint，但怎么个用法似乎没有详细的说明，下面给大家一段演示代码

//代码段1, 加载系统默认图标

FImageList := TImageList.Create(AOwner);
FImageList.Height := 24;
FImageList.Width := 24;
FImageList.ColorDepth := cd32Bit;
Icon := TIcon.Create;
Icon.Handle := LoadIcon(0,IDI_WARNING); FImageList.AddIcon(Icon);
Icon.Handle := LoadIcon(0,IDI_ERROR); FImageList.AddIcon(Icon);
Icon.Handle := LoadIcon(0,IDI_INFORMATION); FImageList.AddIcon(Icon);
Icon.Handle := LoadIcon(0,IDI_QUESTION); FImageList.AddIcon(Icon);
Icon.Free;

FBalloonHint := TBalloonHint.Create(AOwner);
FBalloonHint.Images := FImageList;
FBalloonHint.Delay := 0;

//代码段2，显示提示

var

P1,P2: TPoint;
Rect: TRect;
Edit: TControl;

begin

FBalloonHint.Title := 'Test';
FBalloonHint.Description := 'This is a test';
FBalloonHint.ImageIndex := 0;

Edit := self.GetEditControl; //可以指定任何组件
P1.X := Edit.Left;
P1.Y := Edit.Top;
P2.X := Edit.Left+Edit.Width;
P2.Y := Edit.Top+Edit.Height;
P1 := self.ClientToScreen(P1);
P2 := self.ClientToScreen(P2);
Rect.TopLeft := P1;
Rect.BottomRight := P2;
FBalloonHint.ShowHint(Rect);

end

第一段代码把windows系统自带的图标放入ImageList中，不是必须的，你可以用自己的图标；第二段代码显示气泡提示。需要说明的时ShowHint有4个重载的方法：

1. 不带参数： 这个完全没有用，默认显示在屏幕的最左上角
2. TPoint参数： 定点弹出，问题在于弹出的方向，如果点坐标在屏幕上半部，会向下弹出，否则向上弹出，有时会遮蔽对应的组件
3. TRect参数： 这个是最实用的了，气泡会在根据矩形在屏幕的上下位置，在矩形的上边缘中央向上弹出或者矩形的下边缘中央向下弹出，保证不会遮蔽矩形区域
4. TControl参数： 这个和TPoint有点类似，默认是在Control的下边缘中央，问题是不能控制弹出方向，可能会遮蔽Control

如图所示，矩形代表TRect参数区域，红色箭头代表弹出点和方向：

当然还有一种做法是自定义弹出的窗口，TBallonHint有一个PaintHint的方法，可以指定窗口，必须从TCustomHintWindow继承，有意思的是TCustomHintWindow有个PopAbove属性可以指定弹出方向的。