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

有关 RichEdit 的几个简单的问题

编辑:说三道四文库 发布时间:2017-02-26 08:24
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
对话Rackspace高级副总裁Jim Curry:我们没有"辜负"营销炒作 7个大数据流言——避免错误的Hadoop和云分析决策 Facebook vs. Google:撇开搜索,数据中心产业上的又一竞技 苹果将于6月10日召开WWDC 新版OS X和iOS或将面世 传Amazon今年秋季发布电视机顶盒设备 够快:不会3种以上语言的程序员不是好程序员 Cloud Foundry、Greenplum获通用电气1亿美元注资 微软推超强Android应用Switch to Windows Phone Unity CEO宣布:放弃支持Flash平台 为交房租做App:我第一年赚了7万美金 iOS越狱大神Comex加盟Google 曾错过苹果Offer 维基百科正式从MySQL迁移到MariaDB数据库 JavaScript MVC框架PK:Angular、Backbone、CanJS与Ember 大数据推广引领精准推广浪潮 ThoughtWorks负责人曾学海:数字渠道细分带来的架构演进 你画我猜2 : Draw Something 2正式发布 云中游科技CEO张帆:畅谈“找你妹”的自营销 Oracle当心,MySQL原始团队已重整旗鼓! 优秀的Meteor学习资源 ThoughtWorks美女分析师:如何规划企业在线数字渠道战略? OpenStack将怎样影响软件行业? 知识产权日特稿:谁动了程序员的源代码版权? MIT技术评论评选2013十大突破性技术:深度学习居首 Chrome测试版添扩展程序 可直接浏览Office文档 Ubuntu 13.04携中文衍生版UbuntuKylin 13.04发布 Spark核心开发者:性能超Hadoop百倍,算法实现仅有其1/10或1/100 移动开发的碎片化时代,我们该怎么办? 谈应用分发控制力:还是渠道为王 Unity亚洲开发者大会:手游半衰期越短,开发者手中的机会越多 《割绳子》开发者:俄罗斯双胞胎的奋斗史 曾应聘Rovio未果 Win7系统上常见IE 10问题汇总 vb6做数据库怎么才能用acess2000???大侠帮我! sty是什么格式的文件?用什么软件能打开?? ---强烈建议开一个创业者论坛,支持者来此!---- 为什么不开个人工智能的专题呢?? 在VC中,如何实现按回车键从一个EDIT控件到另一个EDIT控件的转换????? 哪儿有pl/sql的技术资料以及oracle的专业论坛? C#中难道没有动态数组吗?如果有,怎么声明?怎么改变维数?? 河南的高程在网上如何查分 我快受不了了,D5下的程序在D6下为什么出现那么多的错误?释放也出错,请问这是为什么?谢谢! ??怎么使用ADO存储长字符串? 想用Update函数更新数据窗口。但提示DataWindow Does no have Update Capablity,怎么办? 一个串口及组波的题目~ kao,现在人怎么动不动就精通什么什么的,这么牛?!还精通好几样呢,ft 请问如何取得DBGRID当前选定行的内容,包括该行所有的列。一定给分。 如何写文件上传程序?? jbuilder6的破解!!!!!!!(可用60000天) Apache Web Server + Apache Jserv上System.out.println()的问题 如何取得DBGRID当前选定行的内容,包括该行所有的列。一定给分。 请问电力的《java与XML》翻译得如何呢? 我快受不了了,D5下的程序在D6下用为什么会出现那么多的错误?释放也出错。请问这是为什么?谢谢! ---------------COM---------------- 在读数据文件时如何强制性地使程序中断本行数据的读取,接着从下一行开始读取其他数据 为什么我的outlook可发送,不可接收和发送,注意是可发不可收,不是可收不可发 用JBuilder5开发WebApplication: 如何在WEB-INF目录中建立自已的目录? 一本C++/面向对象好书????(kingofark) 用JBuilder5开发WebApplication的问题? 我讨厌控件,有意者跟进! VB请教 关于打包war文件的问题(用JBuilder5开发)? 耶稣与撒旦比赛写程序 怎么多行注释,怎么创建多个表? 对C++有深刻理解的高手请进!!!!初学者更应进,否则可以困扰你好久..... clsid 问题 如何将VB5工程移植到VB6环境中(很急)!!! 关于封装war文件的问题? 在websphere 下应该将我自己的类放在哪里才能让我的jsp程序访问到??? 关于《c#完全手册》的URL 怎样取得server的时间日期?help!!!11111 在websphere 下应该将我自己的类放在哪里才能让我的jsp程序访问到?? 谁遇到过这种怪现象:我在DW中输入数据,居然DEBUG时不进入EDITCHANGED事件,反倒进入其它事件并且再也不能DEBUG了? 吴文智能帮忙吗? 关于版本的问题 请问vb6做的程序怎样才能在Win2000下运行? 高分:为什么BCB经常报告该文件正在被使用。我从新启动BCB后一切正常。 哪位有ziptv for Delphi5而且是破解过的请发给我一份好吗? 为什么BCB经常报告该文件正在被使用。我从新启动BCB后一切正常。 请问这个程序执行时为什么什么都看不见? J2EE随带文档的翻译版本哪里有下载? 大家帮忙推荐几个学习java好的站点吧,中外都行。 哪里有installshield下载呀! 如何能让 Flash 动画,应用在 Ad Rotator 组件中? 干木耳怎么泡 新鲜木耳是否有毒新鲜的木耳是否含有毒素?加工后(炒食)是否有毒? 如果试卷前做规定铜相对原子质量为63.5有道题我用的是63.5结果是百分之39.75而如果用64则结果为百分之40,我写的算对吗?此时能用64吗? 关于Matlab画出数据图形的问题如图,第一列代表的是时间单位是秒,第七列代表的是磁感应强度数据,怎么把这86400个数据画成磁感应-时间图?是不是通过采样,比如以50s为间隔,这样画出1728个段图 A.b两段的电压是6v,灯l1的电阻是8欧姆,通过的电流是0.2a.灯l1两端的电阻是?灯l2的电阻是? 谁知道铜的相对原子质量? 基因分离定律的题,很纠结啊.已知果蝇的灰身和黑身是一对相对性状,位于常染色体上,现让纯种的灰身和黑身相交,F1全部为灰色,再让F1自由交配得到F2,取出其中的灰色果蝇自由交配,其后代灰 泡发干木耳的小窍门是怎样的? 生物为什么会死亡? 基因分离定律的实质是( )A.子二代出现性状分离 B.子二代性状的分离比为3:1C.测交后代性状的分离比为3:1 D.等为基因随着同源染色体的分开而分离 醋泡木耳怎么做 为什么一个生物死了还是生物 CO在高温下还原ag氧化铁,得到bg铁,则铁的相对原子质量是 (4)、初中化学:实验能否证明镁、锌、铜铁、银的金属的活动顺序,请说明理由.下列六个试管反应实验:铁与稀硫酸;铜与稀硫酸;镁与稀硫酸;铁与硫酸铜溶液;锌与稀硫酸溶液;铜与 生物学急死了 excel表中如何将做好的折线图在将表格中的数据删除之后保持不变. 干木耳怎样保管 如图所示,电源电压为14V,R1=2欧姆,R2=3欧姆,R3=4欧姆.此时电流表示数为多少?说明原因 请教Excel透视表高手,做出折线图,想让列显示的是项目名称,行显示的是月份,折线图上的点显示数据.请问这样的数据透视表怎么做呢.就是能表达出每个项目每个月份的库存金额. 干木耳怎么清洗 如图所示的电路中,R1=4欧姆,R2=10欧姆,R3=6欧姆,R4=3欧姆 1、相对原子质量比是什么?2、化学性质相同是那个相同? 锌的相对原子质量为多少,太急了 如图 这样一个电路R1=R2=R3=1欧姆 问总电阻我说.电键打开的时候 就一个简单的串联电路 总电阻等于2欧姆,不过闭合的时候 R3总是有电流通过 到底算是串联还是并联呢?这时候的外电路总电阻怎 元素间的根本区别是 A化学性质 B相对原子质量 C核电荷数 D物理性质 锌的相对原子质量是多少 锌的相对原子质量 验证基因分离定律和自由组合定律应用什么亲本?为什么 镁 锌 铁元素的相对原子质量 因为细胞的寿命是有限的,所以生物内的细胞会随着细胞的死亡而渐渐减少,这种说法对嘛?别太长了. Ag的性质 金属银有毒吗? 木耳属于生物中的哪一种啊如题,这个问题难倒了好多人啊我是吃木耳时突然想到这个问题的,哪个知道啊 高中生物哪些试验是死细胞 核电荷数为47的Ag元素有两种同位素,它们的原子百分组成几乎相等,已知Ag元素的相对原子质量为108,则Ag的这两种同位素的中子数分别是 ( )A.110和106 B.57和63 C.53和66 D.60和62 木耳和青苔是不是生物? 什么是死细胞,细胞的产物是什么?举例或介绍一下 9.已知一种碳原子(质子数、中子数均为6)的质量为ag,铝的相对原子质量为b,则一个铝原子的质量为 分析的通俗易懂些吧 如图15所示电路,电源电压6伏特不变,R1=20欧姆,R2=10欧姆,I1=0.2安培求I总、I2(不是12 是电流2)及R连入部分的阻值 区别下列哪些是活细胞?哪些是死细胞?哪些是细胞产物?A血细胞.B植物的导管.C胃蛋白酶.D花粉.E木纤维.F甲状腺素.G酵母菌.H抗体.I精子(1)活细胞:(2)死细胞:(3)细胞的产物: 怎么设计验证分离定律(一对等位基因)和自由组合定律(两对)的实验? 在图中,已知R1=1欧姆,R2=2欧姆,R3=3欧姆电源的电压为6伏特求电流表A,A1,A2的示数 哪些属活细胞生物,哪些属死细胞生物,哪些属细胞的产物 通过杂交试验验证基因分离定律和基因自由组合定律时,实验材料选用玉米比选用小麦更好?为什么? 木耳是水生生物还是陆地生物? 脱水的鱼能活多久鱼的生命那么脆弱、却那么美 孟德尔测交实验 验证基因分离定律的问题书上说让F1(Dd)与隐性纯合子杂交 因为基因分离 所以后代会出现Dd:dd=1:1 但假设基因没有分离,后代不也是Dd与dd分未分离直接遗传下来的Dd与dd 木耳是水生生物吗?是水生生物或是陆生生物? 3、一电阻丝,AB间的电阻为16欧姆,P为滑动片触点,可在AB上滑动.与电流表、电源等组成如下图所示的电路过时不候 有两个灯泡串联在电路中,电路中的电流是0.2安培,电源电压是9伏特,灯泡L1的电阻是20欧姆,求:(1)电路中的总电阻;(2)灯泡L2的电阻;(3)灯泡L1和L2两端的电压. 蘑菇,木耳都是真菌类,他们是不是也属于微生物?还有其他一些大型菌类. 脱水的鱼可以活多久 求1斤干木耳怎么才能泡10-11斤湿木耳?是水温,泡的时间,木耳的品种都有影响吗?为什么我只能泡8斤湿木耳 超市里卖的湿木耳是新鲜的木耳吗,听说新鲜木耳有毒,那还可以吃吗好多人都是买的新鲜的, 将电阻R和电流表串联后接在一个电源上,电流表示数为2安,在这个电路里再串联一个3欧姆的电阻时,电流表的示数减小到1.6安,则电阻R的阻值为 12 欧,电源电压是 24 伏. 溴、银、钾、氟、氮的相对原子质量 为什么说湿木耳有毒?那干木耳呢? 脱水的鱼能活多久如题 谢谢了鱼的生命那么脆弱、却那么美 有两只灯泡串联在电路中,电路的两端电压是10V,灯泡L1的电阻为2欧姆,L2的电阻为3欧姆通过L1的电流是____通过L2的电流是,两端的电压是______L2两端的电压是_____ 鲜黑木耳有毒么?有人说先黑木耳有毒!可现在超市,菜市场都卖鲜木耳.究竟有没有毒啊? 为何有些鱼脱水很长时间都不会死?比如黑鱼
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn