如何控制Hint提示字符的显示时间?(25分)

  • 主题发起人 主题发起人 微湖水生
  • 开始时间 开始时间

微湖水生

Unregistered / Unconfirmed
GUEST, unregistred user!
如何控制Hint提示字符的显示时间?
 
with Application do
begin
HintPause:=0;
HintColor:=clBlue{for example};
HintHidePause:=10000;//<-10 seconds
HintShortPause:=100;
end;
 
楼上说的对。来晚了,:(
 
intHidePause属性



对应对象:TApplication

声明:property HintHidePause:Integer;

功能:当用户使用鼠标指针在显示的工具提示上没有立即移开时,HintHidePause属性用来确定工具提示的时间长短。

在缺少的情况时,工具的提示及在它消失之前显示约2500毫秒。用户可以用这个属性修改显示的时间长度,时间单位是毫秒。这个属性是在运行时有效的。可以使用每个组件的Hint属性来访问工具提示。

例子:

procedure TForm1.FormCreate(Sender:TObject(;

begin

//Set the HintHidePause to 5 seconds

Application.HintHidePause:=5000;

end;



HintPause属性



对应对象:TApplication

声明:property HintPause:Integer;

功能:HintPause属性用来指定在一个工具提示显示之前的所显示的时间长短。

当鼠标在一个将被显示的工具提示之上停留一段时间后,工具提示才显示帮助。这个停留的时间可以由HintPause属性来确定,单位是以毫秒来计算。缺少蝗时间是800毫秒。一般可以使用每个组件的Hint属性来访问组件。

例子:

procedure TForm1.FormCreate(Sender:TObject);

begin

//Set the HintHidePause to 5 seconds

Application.HintHidePause:=5000;

//Set the HintPause to 1 second

Application.HintPause:=1000;

end;



HintShortPause属性



对应对象:TApplication

声明:property HintShortPause:Integer;

功能:HintShortPause属性用来确定在绘制之前工具提示的延迟时间的长短。

HintShortPause用于当用户移动鼠标经过了一系列的与工具提示相关联的组件时,禁止工具提示的快速绘制。它确定了工具提示在重新显示之前的等待的时间长短,如果工具提示在近期已经显示过并且鼠标指针再次移动到这个组件上时,HintShortPause将显示在工具再次显示之前的延迟的时间。这个属性在运行时是有效有,时间的单位是毫秒,在缺少时的值是50毫秒。工具提示可以通过组件的Hint属性访问。

例子:

procedure TForm1.FormCreate(Sender:TObject);

begin

//Set the HintPause to 1 second

Application.HintPause:=1000;

//Set the HintShortPause to 1/10th of a second

Application.HintShortPause:=100;

end;

 
谢谢各位!
 
多人接受答案了。
 
后退
顶部