如何程序触发OnHint事件 ( 积分: 200 )

enong · 2005-03-23

如何用代码触发OnHint事件,而不用鼠标移入控件时触发. 控件为IMAGE

enong · 2005-03-23

如何用代码触发OnHint事件,而不用鼠标移入控件时触发. 控件为IMAGE

fengfan · 2005-03-23

直接调用OnHint就可以了.触发就要修改VCL的源代码了.

boldfake · 2005-03-29

Application.ActivateHint();

jfyes · 2005-03-29

//没有测试 procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState;  X, Y: Integer); var  p: TPoint; begin  p.X := X;  p.Y := Y;  Application.ActivateHint(P); end;

enong · 2005-03-29

我的意思是比如在"button"事件里写上代码,让IMAGE.hint显示出来. Application.ActivateHint(P);我用过的,没反应 ActivateHint 也用过,太难看.

app2001 · 2005-03-29

http://www.delphibbs.com/delphibbs/dispq.asp?lid=100788 问题：怎样在Image的Hint上动态显示目前鼠标的位置？ 你看这个问题是不是你想要的？？？

Avalon · 2005-03-29

procedure TForm1.Button1Click(Sender: TObject); var  rect :TRect;  p

ointer;  MaxWidth,width,height:Integer;  point:TPoint;  x:THintWindow;  i:Integer; begin x := THintWindow.Create(self); p := nil; rect := x.CalcHintRect(MaxWidth,Button2.hint,p); width:=rect.Bottom-rect.Top; height:=rect.Right-rect.Left; point.x:=Button2.Left+Button2.Width; point.y:=Button2.Top+Button2.Height; Point:=ClientToScreen(Point); rect.Left:=point.x; rect.Top:=point.y; rect.Right:=point.x+height; rect.Bottom:=point.y+width; x.Color := clWhite; x.ActivateHint(rect,Button2.Hint); for i:=1 to 10000000 do  &lt;--这个地方不想这么用但一sleep路面的字就没了   Application.ProcessMessages; x.Free; end;

cwmdelpher · 2005-03-29

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&lt;&gt;nil) and (FHinWindow&lt;&gt;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指派一个新类实例

enong · 2005-08-05

多人接受答案了。

如何程序触发OnHint事件 ( 积分: 200 )

enong

Unregistered / Unconfirmed

enong

Unregistered / Unconfirmed

fengfan

Unregistered / Unconfirmed

boldfake

Unregistered / Unconfirmed

jfyes

Unregistered / Unconfirmed

enong

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

Avalon

Unregistered / Unconfirmed

cwmdelpher

Unregistered / Unconfirmed

enong

Unregistered / Unconfirmed

Similar threads