说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

有关 RichEdit 的几个简单的问题

编辑:说三道四文库 发布时间:2017-08-24 11:08
HTML文档下载 WORD文档下载 PDF文档下载
1,不要自动换行
2,当前光标所在的行号和列号
3, 改变当前行的字体或颜色
1 你试试分别设置不同的scrollbars看:)
2 // 指定输入游标的位置
     procedure SetCaret(RTF: TRichEdit; var Row, Col: word);
     var
       i, iStopLine, iSelStart: integer;
     begin
       if (RTF = nil) then Exit;
       if Row = 0 then Row := 1;
       if Col = 0 then Col := 1;

       // 到第 Row 列, Col 行共几个字元
       iStopLine := Row - 1;
       iSelStart := 0;
       for i := 0 to RTF.Lines.Count - 1 do
       begin
         if i = iStopLine then
         begin
           if Length(RTF.Lines[i]) >= Col then
             Inc(iSelStart, Col)
           else
             Inc(iSelStart, Length(RTF.Lines[i]) + 2);
           Break;
         end;
         Inc(iSelStart, Length(RTF.Lines[i]) + 2);
       end;
       if iSelStart > 0 then Dec(iSelStart);

       // 以设定标记的方式指定游标位置
       SendMessage(RTF.Handle, EM_SETSEL, iSelStart, iSelStart);

       // 再次侦测游标位置
       Row := SendMessage(RTF.Handle, EM_LINEFROMCHAR, RTF.SelStart, 0);
       Col := RTF.SelStart - SendMessage(RTF.Handle, EM_LINEINDEX, Row, 0);

       // 卷到游标所在位置
       SendMessage(RTF.Handle, EM_SCROLLCARET, 0, 0);
     end;

     procedure TForm1.Button1Click(Sender: TObject);
     var
       iRow, iCol: word;
     begin
       iRow := 17;
       iCol := 3;
       SetCaret(RichEdit1, iRow, iCol);
       RichEdit1.SetFocus;
     end;
2 还有一个例子:如何改变RichEdit的游标位置
请问在RichEdit中我想将游标(文字)移动到某一位置要怎麽用呢?

我用SendMessage可以取得行数、列数,然後要用那个参数或是函数才能移动游标呢?



这个需要自已处理, 例如本信所附的程式 --

// 指定输入游标的位置
procedure SetCaret(RTF: TRichEdit; var Row, Col: word);
var
  i, iStopLine, iSelStart: integer;
begin
  if (RTF = nil) then Exit;
  if Row = 0 then Row := 1;
  if Col = 0 then Col := 1;

  // 到第 Row 列, Col 行共几个字元
  iStopLine := Row - 1;
  iSelStart := 0;
  for i := 0 to RTF.Lines.Count - 1 do
  begin
    if i = iStopLine then
    begin
      if Length(RTF.Lines[i]) >= Col then
        Inc(iSelStart, Col)
      else
        Inc(iSelStart, Length(RTF.Lines[i]) + 2);
      Break;
    end;
    Inc(iSelStart, Length(RTF.Lines[i]) + 2);
  end;
  if iSelStart > 0 then Dec(iSelStart);

  // 以设定标记的方式指定游标位置
  SendMessage(RTF.Handle, EM_SETSEL, iSelStart, iSelStart);

  // 再次侦测游标位置
  Row := SendMessage(RTF.Handle, EM_LINEFROMCHAR, RTF.SelStart, 0);
  Col := RTF.SelStart - SendMessage(RTF.Handle, EM_LINEINDEX, Row, 0);

  // 卷到游标所在位置
  SendMessage(RTF.Handle, EM_SCROLLCARET, 0, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  iRow, iCol: word;
begin
  iRow := 17;
  iCol := 3;
  SetCaret(RichEdit1, iRow, iCol);
  RichEdit1.SetFocus;
end;

我还是不明白怎么样自动换行,能不能具体说说?
WordWarp属性
3、selstart
sellength
selattributes.color
selattributes.size
超棒的30款JS类库和工具 立场坚定:惠普仍然密谋回到智能手机市场 6月份浏览器份额:Chrome成市场份额增长最快浏览器 关于PHP的十大误解 你中了几个? 专访西电朱虎明:异构计算硬件架构呈现百花齐放 百家争鸣 GSMA行纪:各种神器、好玩的、好看的全搜罗 大数据初创企业WibiData将Hadoop“打包”,谷歌董事长施密特两次参投 赚钱不忘环保 苹果计划为数据中心兴建太阳能发电厂 深度解析:清理烂代码 电信开放平台发布短信验证码API 创业教父Paul Graham谈创业投资趋势 挖掘Linux人才,打造Power生态系统!IBM启动“天合应用服务器定义未来挑战赛” 请不要忽略API的安全性 发布将近?苹果在多地注册“iWatch”商标 苹果聘请某时尚公司CEO为副总裁 将负责“特殊项目” 雅虎5000万美元收购视频分享应用Qwiki 创业第一年易犯的8大错误 苹果推iOS游戏手柄,掌上游戏主机格局变天? 代码审查固然伟大,那还有其他替代品吗? 怎样维护一个成功的开源项目 麻省理工专家发布新系统Ascend,专注内存访问安全缺陷 Oracle Database 12c面临的最大挑战是开源+开放的生态系统?! 浸入式数据中心:高密度计算的新前沿 2013年腾讯合作伙伴大会要点回顾 “鼠标之父”和超文本研究先驱Douglas Engelbart去世 享年88岁 Web服务器排行:Nginx超越Apache 成为全球TOP 1000网站最常用的Web Server Windows 8之父Steven Sinofsky正式离职微软 不得接受竞争者聘用 Yelp处理1.02亿/月绝对造访人次及3900万评论的省钱秘诀 可视化:图像的主题色提取算法,是不是太高端了? 不利于写出好代码的15个职场因素 GPU Saturday技术沙龙:分享异构计算新技术及应用 谁知道啊? 我是新手,谁来帮我???????????? apche+php下怎么禁止用户直接输入地址浏览图片 大家帮忙! 一个关于加密方面的问题 帮忙看看这个错误怎么解决,谢谢! vb.net中怎么切换窗体?? 各位,用perl如何修改二进制文件哪? MY SQL有没有备份语句和恢复语句 第一天上班,放分 # # # # # JSP&XML问题 # # # # # 我能把按扭做成豪杰播放器中的样子吗? 网络高手请进 初学jsp的女生jsp+javabean问题求助!! apche+php下怎么禁止用户直接输入地址浏览图片 请大家指点小弟一个很菜的问题!(小弟感激) 关于C程序移植问题! 请问如何获取端口号 求救,IE6.0上用Accept属性设置文件上传控件的上传文件类型无效? 请告知从哪里可以下载到《vc从入门到精通》电子版 高分请教C/S编程的问题 梁锦松辞职道歉后接受挽留,港府公开董建华责梁信件【转载】 怎样用企业管理器创建一个新的数据库! 关于单引号的非常菜的问题(在线等)谢谢! 请帮我看看这个PL/SQL过程,哪里错了,谢谢(老出错误信息) 怎样使用mscomm.cox控件,怎样读写串口数据,请用例子说明? 求助《《关于图标的问题》》 PB连接不上SYBASE!急!在线! 在任何时间任何地点,都不要找任何理由不学英语 初学者问题50分:关于操作符* 关于import的问题 关于asa的问题 一个小问题,请求帮助!!!!!!!! 求救!请教关于__cdecl的问题 近日开发一足球博彩性质网站,请各位推荐几个漂亮的前台页面参考参考,非常感谢! 有关WebService的问题,请高手指教!!!Up有分 我装上apache_2.0.43后,输入http://localhost:端口/不能运行(有人说是端口冲突,我改成别的端口还是不行),还有什么地方容易出错,请高手明 关于File的一个问题:如何基于已经存在的文件生成File对象? 郁闷呀!这两段程序有什么不一样的?送分 win98上两台机同时“装Internet连接工享”,却出现不允许,自动关掉了共享. 救命啊!!!!!!!!!!!!!!!!!!!!!!!!!!!11111 哪里能下在受信任的根证书? 高分相赠;控件问题,想实现既可以选择又可以输入的控件;如何做谢谢; 获取当前系统日期的函数是什么? 怎样写权限设置,通过用户权限控制菜单??? 救命!!!!!!!!!!!!!!!11 谁做过OA的安装盘?有没有办法用第三方工具配置OA系统? 一个简单的错误,请各位大哥帮助! 进入WIN98蓝屏,请高手赐教,谢谢 紧急求助,如何编写文本使得程序能读取网络上另一台机上的表 关于session的问题 什么东西到了晚上会发光? 密度没学好一节火车车厢的容积为40米的3立方.载重量为3*10 5的次牛,现要用密度分别为7.8*10的kg每立方米的钢材和0.5*和0.5*10的三次kg每立方米的木材把这节车厢填满,则钢材的体积最多 米三次, how many times ……和 how often……为什么once a year这个回答是用how many times问? 为什么停止敲击锣鼓时,还会听到声音?课本说声音停止,发声也将停止,不是声音也停止,也就是说,如果发声停止后,还可能出现声音的延续.我看到有一道题说,停止敲打锣时,我们还会听到声音, 已知某矩形的长为12cm,宽为8cm,若以其一边所在直线为旋转轴将长方形旋转一周,形成的几何体的表面积为 男人,究竟是种什么动物? 我的耳朵里总是有敲锣鼓的声音,怎么回事?我的耳朵里总是有敲锣鼓的声音,咚咚咚,咚咚咚的,特别是晚上睡觉的时候,耳朵往枕头上一放就听见了,大约有几个月了,(以前也有,但没这么严重,时 讲一个长为4cm,宽为3cm的长方形绕着它的宽所在的直线旋转一周,所形成的几何体的表面积是多少 男人到底是一种什么样的动物?大家可以根据自己的经历和理解来谈谈吗?为什么五十多岁或者七十多岁的老男人可以娶十五六、十八九岁的女孩为妻,而女人只要比男人大上十岁,可能就无法与 硝化细菌加多了会死鱼吗?或者会有什么样的后果?硝化细菌大量死亡会造成什么样的直接后果?能不能详细地说明一下.因为如果没有严重后果的话,投放大量的硝化细菌,虽然死亡率高升,但是成 天空为什么呈现蓝色? 读了奇妙的鲤鱼溪,你想对溪里的鱼儿或者村里的村民说些什么? 什么运动以锣鼓声开始,以锣鼓声结束?并且具有一定的危险性. 天空呈现蓝色的原因是什么? 男人到底是个什么样的动物 硝化菌加死鱼 〈秀才读别字〉的译文 落霞与孤鹜齐飞,秋水共长天一色 表达什么地名?只要地名,要对的 什么东西在晚上能发光 毒隐翅虫具体分布地区要毒隐翅虫的具体分布地区,注意,是具体省市分布. 盐水200克,含盐百分之十.要使它改成含盐百分之二十,需要加( )A、盐二十克 B、水25克 C、盐25克谢谢网友了,我要正确的答案.偶然看到这一个题目,觉得很有趣,但我不会做, 夜晚高速路边发光的东西是什么 将长五厘米、宽三厘米的长方形分别绕着长宽旋转一周,得到两个不同的几何体,那个几何体的体积大?飞机飞行表演在空中留下漂亮的“彩带”, 梁山好汉小旋风柴进是个怎样的人? place,是什么意思? 文言文启蒙读本 112课 秀才读别字 译文 一种盐水200克,含盐率为百分之二十,又加了120克水后,含盐率为多少?(要式子, 缩写句子.爸爸在床上听到窗外一阵阵的锣鼓声和欢呼声.__________________ 水蛭池怎么消毒处理,才可以养出好的水蛭? 小旋风柴进,为什么会有丹书铁券? 爸爸在床上听到窗外一阵阵的锣鼓和欢呼声.(缩句)我们原谅了他的错误.(该为双重否定句) 折翼枯叶蝶是什么意思,要详细解答,一字字的翻译!谁帮帮我 秋水共长天一色 是描写什么的那上一句又是啥呢 “爸爸在床上听到窗外一阵阵的录鼓声和欢呼声”缩句怎么缩 微分的值是沿切线方向上纵坐标的增量,而△y则是沿曲线方向上纵坐标的增量//是一个意思? 描写“秋水共长天一色”的场景 爸爸在屋里听到窗外传来一阵阵锣鼓声和欢呼声(缩句) 凡卡在梦里看见一铺暖炕,炕上坐着他的爷爷.(不爸爸在屋里听到窗外传来一阵阵锣鼓声和欢呼声(缩句)凡卡在梦里看见一铺暖炕, 微分的值是沿切线方向上纵坐标的增量,而△y则是沿曲线方向上纵坐标的增量//谁画个图看看... 落霞与狐鹜齐飞,秋水共长天一色写的是什么地方? 关于欺负人的作文 就是被欺负 上学被欺负行 英文 300到350字 哪位高手给我用通俗的语言说说微分的几何意义啊?它说是该点切线纵坐标的增量,增量不是有相对的吗?在一个点出怎么有增量呢?具体解释一下增量是怎么回事吧.本人愚钝,请用通俗自动的,不 落霞与孤鹜齐飞 秋水共长天一色描写的是哪里的景色 丰子恺漫画 锣鼓声 中一老一少两个人是什么意思 都说微分是曲线上点切线对应x在y轴上的增量,可就是不明白这个增量是怎么看的.像这样的图,看dy就是一个固定的值一样,增量怎么看出来的?能否详细说下从哪里增加到切线和f(x+△x)的垂线相 落霞与孤骛齐飞,秋水共长天一色.描写的是哪个地方 锣鼓的声音是怎样的 一个长4cm,宽3cm的长方形,分别绕他的长,宽所在的直线旋转一周,得到几何体的体积分别为多少 青蛙跳玩具什么牌子好呢 鲁滨孙漂流记读后感1500字. 我们知道将一个长方形绕它的一边所在直线旋转一周,得道的几何体是圆住,现在一个长为4CM,宽为3CM的长方形,分别绕它的长宽所在的直线旋转一周,得到不同的圆柱体,它们的体积分别是多少?哪 青蛙跳玩具好玩吗?有人买过吗 1500左右的《鲁宾逊漂流记》读后感 动物们现在所面临的致命的问题有哪些 青蛙跳玩具游乐设备有什么呢 长和宽分别为4cm和2cm的长方形分别绕长,宽所在直线旋转一周得到两个几何体,哪个几何体的体积大?为什么答题者,50至80财富悬赏 落霞与孤鹜齐飞,秋水共长天一色的意思要简洁明了:) 求青蛙玩具温州什么地方有这种玩具卖, 一个长方形的长为4cm,宽为2cm,绕着它的一条边旋转一周,所得的几何体是什么?其侧面积为?体积为?(均用含有兀表示) 落霞与孤鹜齐飞,秋水共长天一色.有联系的地名要一个地名 拍风景怎么把天空拍得蓝一点,要看得清楚云.我拍的照片怎么都是白白的,什么都看不见 《中国人看白俄罗斯》首发 获赞民间外希腊疑遭拐卖女童证实身份 其母曾企图英国王储查尔斯否认说过“当国王像蹲监韩调查显示 面试官平均14分钟决定是日媒称4架中国军机同一天越过冲绳飞向专家:旅新大熊猫嘉嘉可能已进入性成熟揭秘网络相约自杀群体:低龄化 渴望得巴西警方要求传讯美国信息业大腕专家:旅新大熊猫嘉嘉可能已进入性成熟俄学者:不要对伊核谈判前进步伐抱过高河岸边那些粉色\"小花\"竟是福寿螺冷空气吹开雾霾带来降温 这两天早晨只经济与环境如何共存? 专家称中国污染婚嫁礼服与传统丝绸邂逅 中华嫁衣创意欧盟方面积极评价中欧经贸高层对话美报分析中国“见死不救”因何屡见不鲜外媒:美国监听丑闻暴露欧洲的整体虚弱韩调查显示 面试官平均14分钟决定是英国王储查尔斯否认说过“当国王像蹲监新加坡熊猫专家群英会热议熊猫的可持续外媒:美窃听丑闻再添猛料 痴迷监控近错位互补陆家嘴 金融集聚带步入快速开翅膀发音是“鸡扇“ “莘庄方言“词汇“超级地块“撩拨淡市 南外滩次新房还打车软件硝烟再起 业内分析:烧钱大战南外滩跑进国际金融中心“主赛场“ 董中国新一代运载火箭一级机架完成静力试高清:中韩人士在中韩公共外交论坛上发110米宽 贵州第一大道10月通车名嘴齐上阵 优酷开启全新“说”时代最高检:深挖破坏环境背后职务犯罪 严“小升初”免试就近入学禁止任何形式的贵州省现代高效农业示范园区建设推进会台两名女子分别与对方老公外遇 被判互德国2013年武器出口许可额增加 实西安工程大学上演毕业作品T台秀 欧美饶平海关退运进口固体废物千余吨世界杯前夕 海关查获相关侵权货物明显1500名技校毕业生与用人单位达成就广州社会蓝皮书:政府补贴养老金“北上FIBA赞20岁郭艾伦天赋少有:中国渤海重工研制卫星发射平台装置顺利交付
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘