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.C
4503



被折叠的 条评论
为什么被折叠?



