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

最新推荐文章于 2024-04-27 16:34:23 发布

vniceboy

最新推荐文章于 2024-04-27 16:34:23 发布

阅读量324

点赞数

分类专栏： Delphi 文章标签： TBalloonHint 气泡提示

Delphi 专栏收录该内容

14 篇文章 0 订阅

订阅专栏

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参数区域，红色箭头代表弹出点和方向：