快捷搜索:

改造Hint输出方式

?elphi为每个可视构件(而非快速按钮专属)都供给了Hint及ShowHint特点,此中Hint属性指定文本提示盒中的文本,而ShowHint属性则抉择鼠标指向构件时是否显示文本提示盒,当ShowHint值为True时,显示文本提示盒。用户可在工具监视器(Object Inspector)的属性栏中设置或在法度榜样中改动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.19 MyNewIdea}

Property HintColor:TColor read FHintColor Write SetHintColor;

Property HintFont:TFontwriteSetHintFont;{1997.04.19Mynewidea}

ProcedureTApplication.SetHintColor(Value:Color); //增添一个历程{1997.04.19Mynewidea}

ProcedureTApplication.SetHintFont(Value:TFont);

begin

if(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;

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指派一个新类实例。

您可能还会对下面的文章感兴趣: