获得Memo、RichEdit的光标位置

获得Memo、RichEdit的光标位置： procedure TForm1.Button1Click(Sender: TObject); var Row, Col : integer

小弟最近在写一个在线编辑器，UBB版的，由于没有使用弹出窗口，所以，在添加代码的时候，只能添在TextArea的最后面，无法在光标之前插入，于是在网上疯狂的找资料，工夫不负有心人，终于被我找到了如

Delphi // 指定输入游标的位置 procedure SetCaret(RTF: TRichEdit; var Row, Col: Word); var i, iStopL

////////////////////////////////////////////////////////////////////////// /// 程序：屏幕取色 /// 功能：动态获取当前

这篇小文本来应该在昨天发的，但是由于我昨天敲错了一个键(就是IBM笔记本键盘上的前进后退），导致文章丢失...今天就简写了。 网络上有许多能在光标位置插入字符的js代码，比较啰嗦，不适合讲解。 我写了

写的比较乱,各位看官就将就吧 <script> function tellPoint() { var rng = event.srcElement.createTextRange();

在网上用baidu找了很久，找到的都是IE的方法，Firefox都不能用。 而且很多要用到<textarea>.focus()方法，用起来很不方便。 后来转用Google，搜了下"

根据光标位置在字符中插入新的字符 根据光标位置在字符中插入新的字符 写的比较乱,各位看官就将就吧 <script> function tellPoin

////////////////////////////////////////////////////////////////////////// /// 程序：屏幕取色 /// 功能：动态

Public Function checkrow() As String Dim row As Integer = Me.TextBox1.SelectionStart