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,显示提示