Delphi为TButton增加OnMouseLeave事件一例,类似鼠标HOOK一样,检测鼠标的位置,能判断出鼠标是否已经移动到按钮上,在按钮上的话会显示文字“在”,反之显示“不在”。