如何把鼠标移到一个SLE控件上面后 会闪出一个提示信息 提示这个SLE框中输入内容的要求！
假如：我要求在这个SLE控件下面只能输入数字！我要怎么做 才能在鼠标移到SLE上面后会提示输入要求？请高手指点 谢谢
------解决方案--------------------
保存为uo_singlelineedit.sru，然后导入pbl中
$PBExportHeader$uo_singlelineedit.sru
forward
global type uo_singlelineedit from singlelineedit
end type
end forward
global type uo_singlelineedit from singlelineedit
integer width = 530
integer height = 100
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
borderstyle borderstyle = stylelowered!
event ue_mousemove pbm_mousemove
end type
global uo_singlelineedit uo_singlelineedit
type variables
public:
integer tipicon = 0 //提示框显示的图标：TTI_NONE=0,TTI_INFO=1,TTI_WARNING=2,TTI_ERROR=3
string tiptitle = '' //提示框显示的标题
rowfocusind Tooltiptype = hand! //提示框显示类型：hand! 为气泡型提示框， focusrect! 为方框型提示框， off!为不显示
private:
nvo_tooltips invo_tooltip
int i_uid
end variables
event ue_mousemove;invo_tooltip.of_relaymsg( this, 512) //512代表鼠标移动是显示tooltip
end event
on uo_singlelineedit.create
end on
on uo_singlelineedit.destroy
end on
event constructor;invo_tooltip.of_set_tippro( tipicon, tiptitle, TOOLTIPTYPE)
i_uid = invo_tooltip.of_addtool( this, this.tag, 0) //以控件的tag属性为tip内容
end event