Memo/RichEdit行列定位
来源:互联网 发布:巨潮数据库 编辑:程序博客网 时间:2024/05/17 19:21
网上求Memo/RichEdit中的行、列的文章比较多,但是根据行列号定位光标的比较下:
求行列号
var
i, j, iRow, iCol: longint;
begin
i := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0);
begin
i := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0);
j := SendMessage(Memo1.Handle, EM_LINEINDEX, i,0);
iRow := i + 1;
iCol := Memo1.SelStart - j;
根据iRow, iCol设定光标
Memo1.SelStart := Memo1.Perform(EM_LINEINDEX, iRow - 1, 0) + iCol ;
Memo1.SelStart := Memo1.Perform(EM_LINEINDEX, iRow - 1, 0) + iCol ;
- Memo/RichEdit行列定位
- 获得Memo、RichEdit的光标位置
- 获得Memo、RichEdit的光标位置
- Memo光标定位
- Memo 控件光标定位
- Memo控件光标定位过程
- Delphi中组件Label、Edit、Tag、Memo、RichEdit
- Memo
- Memo
- memo
- MEMO
- memo
- memo
- memo
- memo
- Memo
- memo
- Memo
- 热烈庆祝十七大的召开
- MS SQL Server日期计算
- JSP连接SQL Server 2000系统配置
- NHibernate1.2 中 执行“存储过程”
- 什么是cookie欺骗
- Memo/RichEdit行列定位
- 面向对象的NHibernate数据查询语言-HQL
- 释放资源问题(图片)
- Visual Basic6.0中Any类型 迁至 Visual Basic 2005 中的变化
- discuz!Nt整合日记。
- 微软正版验证的处理方法
- QWERTY,QWERTZ和AZERTY
- xmlhttm 取XML
- 专业性B2C平台快速发展 50%以上综合性B2C商城将亏损