比如可以在TApplicationEvents的OnShowHint当中写入一些代码来控制提示信息:
procedure TForm1.ApplicaitonEvents1ShowHint(var HintStr:string;var CanShow:Boolean;var HintInfo:THintInfo);
begin
HintInfo.ReShowTimeOut:=100;//设置重显时间为100毫秒
end;
上面这一段代码是从《电脑报》1月28日第四期的《Delphi编程中让ListBox实现即指即显功能》上面抄下来的,作者是重庆的杜建刚。
说实话,以前我也不知道那东西倒底是做什么用的。现在你知道了吗?alpha@kzinfo.net