TAnyHint

漫画风格的Hint。
可设置背景和边框颜色。
可添加小图标。
可设置显示方向。
支持自绘画。

这里下载:AnyHint.zip

简介

把一个 TAnyHint 组件放入主窗体,就可以使 整个程序的所有提示具有漫画的效果,为您的程序增加趣味性。另外,使用内部的 TCariHint 类,可以在指定的 位置显示一个提示,就象下面的例子一样。 

示例

//直接使用内部类 TCariHint
procedure TForm1.Edit1Enter(Sender: TObject);
begin

   with TCariHint.Create(Self) do
   begin
      Graphic.LoadFromResourceName(HInstance,'INFO');
      ActivateHintPos('Any Library'#13#10'Visit http://www.anylib.com for more info.',
      Edit1.ClientToScreen(Point(0,0)),6000);
   end;
end
;

OracleCUtils.gif (5238 bytes)

 


AnyLib Team
E-mail: wxy_xp@163.com