如何修改tpanel的hint窗口大小 ( 积分: 200 )

delphi6中的tpanel的hint窗口width最大只能显示10个左右的汉字,
太长它会自动分行.
我想修改它让它不分行显示.
查看了thintwindos.activeHint过程,却不知道在哪地方控制？
哪位有知道怎么修改？

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

学习

看我贴吧."美观"选项打勾,就可以实现
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3767839

to zhonguo:
你的那段文字我看过,那个方法是自己构建一个新的thintwindow来实现.太麻烦了.并且如果要构建一个新的thintwindow,我另外有其他方案.

我是想通过修改系统原来的thintwindow代码来实现修改hintWindow的大小