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

有关 RichEdit 的几个简单的问题

编辑:说三道四文库 发布时间:2017-10-20 12:27
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
.NET开发者必备的工具箱 热情不减!七款Swift应用开源项目推荐 如何给苹果提交Bug或功能需求? 深入钻研Augular两年 谈谈其究竟适用于哪些场合 唐巧:谈谈React Native 在Swift中,如何更优雅地处理网络返回数据? Spark生态系统解析及基于Redis的开源分布式服务Codis 阿里巴巴技术专家杨晓明:基于Hadoop技术进行地理空间分析 Bowery为什么放弃Node.js,转向Go? 《近匠》有了APM,用户快到碗里来——专访听云CTO Wood 联通WO+梦工厂唐敏:走进厦门 构建移动数字生态 HTML5 VS 原生,世界究竟是谁的? 完全开放 微软开源.NET Core的执行引擎CoreCLR Swift与Objective-C的兼容“黑魔法”:@objc和Dynamic 网络技术,从“数制”开始学起——跟随王达老师一步步学习 UPYUN CTO黄慧攀:UPYUN这些年,一段“刚好”的旅程 2015移动游戏重中之重:需成功把握1%付费用户的心 UNITE 2015 BEIJING 20大议题首爆 死路一条?智能硬件免费没有未来 APICloud推出“模块 Store” 公布APP创业 “Time to Market”战略 极路由加入海尔U+联盟 可跨品牌控制多款家居设备 《近匠》Amaze UI:做最懂中国程序员的开源HTML5框架 Testin CTO徐琨:要做测试领域的阿里云! TIOBE 2015年2月编程语言排行榜:JavaScript排名达历史最高点 机智云发布第二代GoKit开发板,兼容Arduino与Intel Edison 计算机视觉,让冰冷的机器看懂这个多彩的世界 昔日学霸反哺教育 打造教育领域今日头条 第三方DevOps实践报告发布 84%中国企业预将受益 《程序员必读之软件架构》作者Simon Brown:架构师与程序员的区别 Xcode 6.3 Beta发布,Swift 1.2带来哪些新变化? 应用生与死:移动测试究竟该怎么搞? 各位大侠,外挂里的自动捡物是怎么实现的? 如何在运行中删除动态创建的 POPUPMENU 的某个菜单项呢? 安装包怎么做? 怎样将mysql数据库里某个字段的所有值绑定到form的<select>选项里。 我的com+组件两台机器间不能执行方法 怎样获得InputBox、InputQuery的值? 我用的光盘版的maya5.0,serial number不对啊?谁有可以用的啊? 请教:MPP文档是什么概念啊? 哪里有VF做的工资管理系统下载 怎样在一个中英文混合的字符串中添加回车键后而不出乱字符 救命啊!!!!! 关于ocx的问题 如何响应Esc键按下? 寻开发公司 EVB 如何修改 Grid的字体? 怎样来查找在线游戏、即时聊天软件所使用的端口号? 搞过数据库的进来瞧瞧 表中有自增类型字段id,用TABLE 控件与之相连,记录增加时,ID怎么 在asp中我想等程序执行完了,直接把窗口关闭,不要出现提示 session怎么不见了?解决了马上送分 有关CORBA产品:VisiBroker的问题 怎样加密字符串? {200分}请问关于在子窗口中选择多值以后传递给父窗口中一个多值域的问题! 一个关于oracle中加锁的问题 请问这是什么错误? SQL 连接小问题 急求C++Builder 6的 ADO 补丁!(warmwk) 高分求救:在QT下,我已经实现了对一个XML的解析,但是对DTD的解析如何实现,谁给我讲讲,或者给我源代码更好。 关于ImportFile()执行后数据窗口update()的问题 有人参加过软件测试工程师的认证吗? 寄存器分段。。。 请问哪里有数据库设计规范方面的资料 关于使用inet控件对ftp操作的问题 一个设计方面的问题,各位高手请进!! 急急!清VB.net高手帮助.如何实现利用扬声器发生程序? 对象参数问题 如何得到文件路径 关于窗体的管理 JAVA代码操作数据库备份MYSQL? 我要将TEST01下所有的表授权有没有更简便的方法??? 数据库面试题,大家看看(给分无商量) 存储过程问题拉!帮忙看看吧! 关于ExportMap输出图片的问题? Image控件的问题? sql server 连接 请问无组建上传的详细代码解释。 怪问题! 对文件操作总报I/O error 32,请教???? 网上邻居的问题。 有一个比较基础的问题想同大家共同探讨。 急需各位高手帮忙 告诉我这些句子怎么改,并把改的意思告诉我原句:I can finish the job with myself.原句:I have to took a taxi last night.原句:You needn't to write it down.原句:Who's that beside to her?原句:She was a sixteen-years old g 句子的类型是不是修辞手法? 往日的近义词是什么 小学英语改错题,请说明理由,I am too very busy recently.She has time enough to rest.His brother smokes much too. Arcgis里GE~KML~Shp~投影~calculate geometry出的面积为什么偏大啊?利用谷歌地球画出多边形kml转到Arcgis后,定义shp格式WGS1984,再进行投影PCS:WGS1984 WordMercator,然后新建字段求面积calculate geometry出的 "树欲静而风不息,子欲养而亲不在"这句话有什么意义? 单句改错怎么改,请说明理由 分析解释一下下面两个英语句子,How far is it from his home to school how long does it take you to get from home to school 这是一条什么蛇?黑白相间(附图)今天晚上突然在家里看到这条蛇,也不知道哪里冒出来的,30-40CM,黑白相间,小母指大小!有毒么?长大后有毒么?如下图 帮我把这个句子改成简单句吧,谢谢!谁能帮我把这个句子改成两个简单点的句子啊,觉得太复杂,太别扭了!in front of a pile of so-called “famous brand” fake leather shoes and under a signboard of “honest dealer 已知学校航模组设计制作的火箭的升孔高度h(m)与飞行时间t(s)的关系式h=-t²+26t+1,如果火箭在点火升空到最高点是打开降落伞,那么火箭点火后多少时间降落伞将打开?这是该火箭的高度是多 黑白直条相间的蛇是什么蛇黑白条宽度大致相等,而且宽度很均与.不是银环蛇,是从头到尾一条没有间断的黑白条那种.全身大约有三四条黑白相间的条纹. 英语翻译I truly feelthat my mother led me here,to Morzaine,and to my future as a happy wife andbusiness woman.When Mum died in October 2007,I was a cook.In Decemberthat year,while I was working for a wedding,a pearl necklace Mum had leftme disapp 设计一个程序,类似于下面的输出.直到火箭完成的飞行时间和高度输出应类似于以下内容:图 提示用户火箭的长度(米)和火箭的初始米/秒的速度.计算火箭获得最大高度的时间,当使用公式 什么蛇,黑白相间, 近义词; 平和-----( ) 一脉相承------( ) 流沙河是什么家 梦见一条黑白相间的蛇,然后我把他打死了梦的很模糊,自己隐隐约约是醒着的,然后在想蛇,然后眼前就真的出现了蛇.先是一条大蟒蛇,接着又一个画面,是一条黑白相间的蛇.最后被我打死了!这 简述沟通的基本要素 简答题 流沙河. 福建有一种黑白相间的蛇是什么蛇,到处都有的,身体好象是三角行的 西周“六艺”中与体育有关的内容是( )西周“六艺”中与体育有关的内容是( )A.礼、乐 B.书、教 C.诗、书 D.射、御 PASCAL问题 三、组数游戏【问题描述:】设有n个正整数,要求将他们连成一排,组成一个最大的多位数.如1:n=3,3个整数 13 、312、343.连成最大的整数为:34331213如2:n=4,4个整数7、13、4、246.连成 鲨鱼由几部分组成 把下列形声字按形旁声旁分类,完全正确的一组是( ).1绿2闷3管4豪5凳6爸7雄8窍9园10幅11慈12藤A.137 10 B.2469 C.368 12 D.59 11 12.快呀!!!急急急急!!!!! 知足者常乐 英语中S后的辅音t,p,k不浊化可以吗? 怎么样切洋葱不辣眼睛呢?刀刃沾水的方法果断抛弃了····· 为什么说知足者常乐呢?知足者不常乐又有哪些坏处呢? 英文单词中,是否只要出现s,其后的p、t就要浊化? 男女之间很好很好很好的朋友是什么意思啊 什么叫知足者常乐? 美语t的浊化在美语中t是不是只是在元音间才浊化,如果不是前后多有元音是不是不浊化,after是不是t不浊化还是读t 在ABCD内找一点O,使它到四个顶点距离之和最小,并说明理由. 知足者常乐,对么 从前的近义词 你认为在abcd四个数中那个最大,说明理由设a=1÷2÷3÷4.b=1÷【2÷3÷4】.c=1÷【2÷3】÷4,d=【1÷2】÷【3÷4】, “知足者常乐”对吗 以前的近义词是什么 如图所示,四边形abcd中,角b等于角d等于 90度,是说明abcd在同一个我园上 小熊怎么写? “以前”的近义词是什么?要三个,不能离谱,越多越好.要可以填入:一如( )的 寻找成语 虽然一个人 但是也过的很好的成语 或者话语 小熊题怎么写? 从前,原来的近义词, 恋恋不舍的近义词 耶稣是一个特别的婴儿吗 用英语怎么说 树欲静而风不息,子欲养而亲不在说明什么道理? 美团唱歌是怎么算的美团唱歌一般都有9.9元的,我想问9.9是算一个人的呢还是几个人都可以 把一个小球垂直向上抛,小球上升的高度h(m)与时间t(s)有如下公式h=24t-5t2.该球上升的最大高度是多少 昔日的近义词是什么 恋恋不舍的近义词和反义词 在ARCGIS的面图层里面增加一个newarea属性字段,然后进行Calculate Geometry为什么会出现部分属性值为零?怎么进行修改?我是初学者, 昔日的近义词写出昔日的的近义词和含义. 津津有味的反义词 饥寒交迫的反义词 习以为常的近义词 帖能组什么词快 树欲静而风不息,子欲养而亲不在.怎么理解 帮我看看这句话该怎么改 或者直接告诉我英语要怎么说我想说我怀疑你有没有观察过中国人是怎样去救地政灾民的.anonybabe I doubt that you have obvious chinese how to saved earthquake victims...obvious 好象 为什么是反馈? 人们常说的"三字经"是(___)三个字人们常说的“三字经”是(___)三个字 世界泰拳王与中国功夫王广东见面会上大印度总理辛格:印中需要合作而不是对抗印度总理辛格:印中需要合作而不是对抗中国央行与美国联邦存款保险公司签署谅纽约大学教授:放松众筹融资限制意义非网购成为中国消费新势力 规模跃居世界人大常委会询问财政科技资金:好钢要用万钢月内再提严惩科研腐败 强调四措并联合国中国籍高官徐浩良:国际公务员是浙江遂昌法院QQ视频四国连线 审理继浙江高速金华西出口货车自燃 300万浙江永康华溪再遭劫 “牛奶河”变“凉德国大众刷新全球建厂速度 宁波项目首中英裁缝竞PK宁波服装节 奢侈品不只随警六小时 记者体验城市“保护神”的塑料人崛起?乐高玩具人数量6年后或超五分之三美国人债务积累超储蓄塑料人崛起?乐高玩具人数量6年后或超《变形金刚4》香港取景遭勒索 恐吓掷杜青林对西班牙进行友好访问外交部:中印重申不将军事能力用于针对云南喀斯特石漠化区:山村里来了处级“广东建立市县党委巡察制度 全面从严治高尔夫世界杯落幕 中国队并列亚军创历日本10年在中国净赚1.8万亿 却要成都政府鼓励支持“共享单车” 本土品江西丰城电厂“11·24”特别重大事装修工成都清水河捞出个“铁家伙” 疑首届中国大学生公共管理案例大赛广东举东航回应“摆渡车险撞飞机”:速度正常太火爆!苏宁主力花上万买75张票 黄幼儿园女员工虐待男童取乐,孩子浑身僵全法学联举办成立30周年庆祝大会(组丰城电厂“11.24”事故遇难者理赔三亚两名无证带团“黑导游”被行政拘留辽宁高考作弊案5人因非法获取国家秘密奥运冠军杨伊琳代言轻聆K80耳机 曾重庆市港口条例修订通过 将于明年起施仰卧起坐会致瘫?国外已叫停 国内中小济南:家里暖气不暖拨打24小时服务热首届全国砖雕艺术大赛成功举行 非遗砖伊朗一架直升机坠落里海 机上5人全部
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘