首页 >> 读书频道 >> 电脑 >> 改造HINT的输出方式
 
· 右移赋值运算符 (>
· new 运算符
· Delphi数据集过滤技
· 乘法赋值运算符 (*=)
· Delphi下汉字输入法
· 怎样解决打开一个DBF表
· 取余运算符 (%)
· 取余赋值运算符 (%=)
· Delphi使用技巧四则
· 逻辑“非”运算符 (!)
· Delphi使用技巧AB
· 逻辑“与”运算符 (&&
 
· 红楼梦:120回全本[清
· 常见图像文件格式详解
· 拉封丹寓言
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

改造HINT的输出方式


查看有无更新版本

关键字:Delphi/Pascal 2006-9-22

 

 Delphi为每个可视构件(而非快速按钮专属)都提供了Hint  
及ShowHint特性,其中Hint属性指定文本提示盒中的文本,  
而ShowHint属性则决定鼠标指向构件时是否显示文本提示盒,  
当ShowHint值为True时,显示文本提示盒。用户可在对象监  
视器(ObjectInspector)的属性栏中设置或在程序中修改Hint  
及ShowHint属性。  
    除此之外,Delphi还在类TApplication中提供了  
HintColor、HintPause、HintHidePause、HintShortPause几  
个属性来控制文本提示盒的输出方式。  
    一般来说,HintColor、HintPause、HintHidePause、  
HintShortPause通常在Form的OnCreate事件中设定它们的值  
(如有需要的话),如以下的一段程序。  
    ProcedureTMainForm.FormCreate(Sender:TObject);  
    begin  
    Application.HintPause:0;{使文本提示盒立即出现}  
    Application.HintPause:clBlue;{以蓝色小方框的  
方式出现}  
    Application.HintHidePause:10000;{延长停留时间  
为10秒}  
    Application.HintShortPause:100;  
    end;  
    另外,在编程中,我们还可以通过TApplication的OnHint  
事件获取鼠标指向构件的Hint文本。  
    事实上,Delphi提供的文本提示盒输出方框、文本字型都  
太小,既不美观亦不易看清。值得庆幸的是,Delphi2.0版提  
供了全部构件的源代码,我们可以通过对类TApplication的  
源码作一些小修改,增加一个HintFont的属性,即可象修改  
HintColor一样来修改文本提示盒的字体、字型大小等。  
    TApplication是在Forms单元里定义的,因此让我们打开  
Forms.pas单元文件来作以下一些修改:  
    ProcedureSetHintColor(Value:TColor};  
    ProcedureSetHintFont(Value:TFont);  
{1997.04.19Mynewidea}  
    PropertyHintColor:  
TColorreadFHintColorWriteSetHintColor;  
    PropertyHintFont:TFontwriteSetHintFont;  
{1997.04.19Mynewidea}  
    ProcedureTApplication.SetHintColor(Value:Color);  
上增加一个过程  
    {1997.04.19Mynewidea}  
    ProcedureTApplication.SetHintFont(Value:TFont);  
    beginif(Value nil)and(FHinWindow nil)then  
    FHintWindow.Canvas.Font:Value;  
    end;{1997.04.19Mynewidea}  
    别忘了在新增的语句旁作一些必要的注释,如上面的  
{1997.04.19Mynewidea},可以很清楚地知道哪些语句是你  
自己加进去的。  
    将修改后的Forms.pas存盘,然后重建库文件,以后在  
你的库文件里,类TApplication就多了一个属性HintFont,  
你就可以很轻易的通过HintFont属性来修改文本提示盒的字  
体、字型大小了,如以下一段程序:  
    ProcedureTMainForm.FormCreate(Sender:TObject);  
    Var  
    NewHintFont:TFont.Create;  
    begin  
    NewHintFont:TFont.Create;  
    NewHintFont.Name:′楷体-GB2312′;{设置字体为  
楷体}  
    NewHintFont.Size:12;{设置字型大小为12}  
    Application.HintFont:NewHintFont;  
    end;  
    此外,Delphi绘制文本提示盒是在类THintWindow的方法  
ActivateHint中通过WindowsAPI资源函数SetWindowPos来实  
现的,这段代码在Controls.pas单元文件里,有兴趣的读者  
可以进一步修改这段代码以绘制其他任意形状(如椭圆、圆等)  
而不仅仅是矩型方框的文本提示盒!但或许最好的方法是从类  
THintWindow继承下来一个新类,并重载ActivateHint方  
法,然后在应用程序开始处给变量HintWindowClass指派一个  
新类实例.

改造HINT的输出方式

[ 1 ]
改造HINT的输出方式 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑