想做一个如题控件的插入功能,其功能与WORD在编辑时按下INSERT键后输入情况一样
有人做过吗?
本人也在思考中。
------解决方案--------------------
richtextedit本身就支持插入,如果你想实现和insert键后的输入情况一样的话,你可以用keybd_event来模拟键盘输入
------解决方案--------------------
简单做了一个,比较粗
forward
global type uo_richtextedit from richtextedit
end type
end forward
global type uo_richtextedit from richtextedit
integer width = 571
integer height = 600
borderstyle borderstyle = stylelowered!
end type
global uo_richtextedit uo_richtextedit
type variables
boolean isinsert
end variables
on uo_richtextedit.create
end on
on uo_richtextedit.destroy
end on
event key;if key = keyinsert! then
isinsert = not isinsert
end if
if isinsert then
long ll_insertline, ll_insertchar
Position(ll_insertline, ll_insertchar)
SelectText(ll_insertline, ll_insertchar,ll_insertline, ll_insertchar)
end if
end event