当前位置: 代码迷 >> PB >> RichTextEdit控件的插入有关问题
  详细解决方案

RichTextEdit控件的插入有关问题

热度:227   发布时间:2016-04-29 10:33:04.0
RichTextEdit控件的插入问题
想做一个如题控件的插入功能,其功能与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