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

有关 RichEdit 的几个简单的问题

编辑:说三道四文库 发布时间:2017-03-28 02:44
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
Android签名用keytool和jarsigner制作apk文件 谈谈Android中文短信的实现 Android中文短信开发技巧 Android来电号码获取代码 Android AIDL初学者必看内容 Android与XML解析 Android天气预报程序开发实例与定位信息 Android中文短信开发终结篇 Android权限列表permission说明 Android输入法开发实例解析 Android示例程序Snake贪食蛇源代码分析 Android平台View的按键事件KeyDown用法 Android加速感应器实现屏幕自动旋转-Sensor属性 Android视频播放类VideoView解析 Javascript如何检测浏览器关闭了小叉叉 文件操作 - DOS BAT批处理编程入门教程(六) 获得手机中的电话簿 Android开发学习小心得 VC中用CPPToolTip轻松实现工具提示 Android中MediaRecorder类实现视频录制 WEB开发中将数据库记录转换到EXCEL表格文件xls供下载 F#是什么语言 函数式编程语言F#:基于CLR的另一个头等编程语言 编程获取Google PR值方法集锦 第一个F#入门程序Hello world 在F#中将函数作为一等对象的值 PHP获取Google PR值 ASP.NET(C#)获取Google PR值 android.appwidget类剖析 Android NDK之JNI使用例子 RemoteViews - Android Widget开发入门 动态二维数组 如果用好 DELPHI 的TDBChart 控件?(有源代码最好!) 关于数据窗口控件editchanged事件中光标的问题。 asp怎样和flash沟通? 请教FormatDateTime()函数的参数,怎样去定义日期格式? 大家帮帮忙吧:我有个朋友,他开服装的,他要个店名,他买的是年轻人的衣服,有什么好建议嘛? bcb打包发行至少要带哪些文件? 请问PB中如何新建一线程以运行其他程序 为什么定义变量的时候总是出错? 请问可不可以在forward指令中携带参数 怎样实现声音的迭加处理? clientsocket那个属性是返回本地的ip地址的 我发现一个人怪现象,这里人都知道lotus c++ api ,但没有一个人会用它编程序,可悲 请问现在网吧都用什么上网?DDN,ISDN?那个比较快一些? 在WIN95下怎么注册COM DLL?? TEdit中Text是属性,能否在TMyEdit中重载它的读写方法? 在WIN95下怎么注册COM DLL?? 如何在vb中调用vc编好的dll文件? 关于网络传输字符的问题 生成曲线图的图形控件 谢谢 用netmeeting SDK开发视频监控系统遇到的问题 大出血,放分 ??? 我发现这里有一个怪现象,这里人都知道lotus c++ api ,但没有一个人会用它编程序,可悲 jeckel我也要那个文档,快快快…… 为什么不能调试????? ==如何用Insert语句直接向Oracle的表中插入jpg文件??=== GIS初学,不知道从何下手。请教众大虾! 怎样快速获得一个文件的句柄??? 选中ListView控件中的Item后在Memo中出现相对应的内容,怎么做?? 如何通过程序来访问各种类型的数据库又不用ODBC?因为要求跨平台。 在线的进来问点问题(jsp/javabean), 实在没分了不好意思其它帖子中送出了 请问如何将一个CString 转到一个 char 的数组中 各位大侠!推荐几个学习linux的网站吧! 还是关于classpath的问题,请大家教我,从头教起吧,谢谢 关于想得到刚刚保存的行的问题 socket不能连接,“目标机器积极地拒绝它 如何用applet显示服务器的系统时间? to:jeckel 如何在TREEVIEW中改变所选结点时在框架的另一个FRAME中调用某个页面? ASP中数据集的操作 猪啊猪,气死我了 capboy 请你看一下“capboy:为什么我加入了memfile.h后编译回出这样的错误”,后面有新问题,我的分快没了,谢谢! 请问何处有编制plugin宿主程序的资料? ORBIT是一个基于组件的开放型的组件开发平台,介绍给大家。支持VB 来说一下自己手机的开机问候语呀 公告:收到fredfei(飞飞)得Ehlib 2.1的朋友请注意!!!! 菜鸟级问题! 做树状菜单,不用jtree,布局该如何选?不用xylayout。帮帮忙,给点提示吧! 怎样在安装程序中注册我的com服务器,安装用installshiled6,不是install for bcb 急! ①有一个三角形,他的面积与直径为100cm的圆的面积相等,三角形的底是157cm,求三角形底边上的高.②两个圆的周长差是94.2cm,已知大圆的半径是小圆直径的2倍,求这两个圆的面积和③如图,在一块 大小两辆卡车,小卡车每天运a吨货物,大卡车比小卡车每天多运八吨,现大卡车运120吨,小卡车运100吨. 一个三角形的面积是18平方厘米,他的底边长是12厘米,高是多少厘米?用方程解. 一个三角形,它的面积与直径为100CM的圆的面积相等,三角形的底是157CM,求三角形底边上的高 用CAD测量面积时,命令行出现的面积数 单位是平方米吗? 一个三角形的底2.5厘米面积是5平方厘米设它的高是x,列方程求高方程解 在△abc中,边ab的垂直平分线交bc于点d,如果ac+bc=7,求△adc的周长 喷射式的虹吸式马桶和旋涡式的虹吸式马桶,哪个冲得干净?如题 一个三角形的底是3.5厘米,面积是10.5平方厘米高是多少,列方程式 1.如图,在△ABC中,AC=5,BC=8,AB的垂直平分线交BC于点D,那么△ADC的周长为___2.若等腰三角形一腰上的高与另一腰的夹角等于30°,则此三角形的顶角为___度 超漩涡式马桶和虹吸式马桶有什么区别? 一个三角形的面积是18平方厘米,他的底边长是12厘米,高是多少厘米?用方程解. 一个等腰直角三角形的面积是100平方厘米,这个三角形的最长边长等于?好的+10,⊙ o ⊙ 虹吸漩涡式的座便器怎么样? 一元一次方程问题:环形跑道一周长400m,沿跑道跑多少周,可以跑300m 设未知数,列出方程 载汽油的车为什么要拖一条铁链子? 喷射式虹吸与漩涡式虹吸式马桶什么区别 根据下列问题,设未知数,列出方程.1.环形跑道一周长400m,沿跑道跑多少周可以跑3000m?根据下列问题,设未知数,列出方程.1.环形跑道一周长400m,沿跑道跑多少周可以跑3000m?2.甲种铅笔每只0.3元,乙 某同学用如图所示的滑轮组将重400N的物体竖直向上匀速提升2m,所用拉力为250N,求:额外功,机械效率 虹吸漩涡式座便器有哪些优点? 一个平行四边形的面积比与它等底等高的三角形面积大10平方厘米,这个三角形的面积是多少平方厘米? 长江长多少米 正方体的底面积是16平方分米,高是几 环形跑道一周长400m,沿跑道跑多少周,可以跑3000m? 长江长多少千米? 工人利用滑轮组将重400N的物体向上匀速提起2m ,所用的拉力为250N,求此滑轮组的有用功,总功,额外功和机 环形跑道一周长400m,沿跑道跑多少周,可以跑完3000m.设未知数,列出方程. 长江长几米,我急 一辆大卡车开往灾区,第一小时行了百分之25,第二小时行了八分之三,还有117千米,两地之间相距多少千米? 环形跑道一周长400m,沿跑道n圈,可以跑多少米?列式表示(2)比a大5的数.(3)a的三分之一减6的差.(4)比y的一半小7的数 冬天零下5度,汽车水箱怎样防冻?不用防冻液的是指雨刮器水箱 致汶川地震灾区的一封信要深刻!700字左右!额外50分! 石黄高速转京珠高速从石黄高速在哪具体哪个方向转京珠高速啊 在高速上不是有牌子写着什么方向在写着什么方向的地方右转啊 我上午去石家庄的没找对 要学CAD画图.怎样学看图啊.还有CAD的全部命令是什么啊. 至汶川地震灾区同学的 一封信700字拜托给我一封关于汶川地震灾区同学的 信700字!700字!谢了 橘黄色这条是什么石? 长江长约多少 如图所示,已知三角形ABC中,AD垂直BC于D,AD=BD,DC=DE,∠C=50°,求∠EBD的度数 等腰直角三角形的斜边长为18厘米,则它的面积是多少平方厘米?要单位和过程 把一个长120cm、宽80cm的长方形纸截成面积相等的正方形(纸剩余),至少能截多少张? 如图 已知三角形abc中,AD垂直BC于D,AD=BD,DC=DE,角C=50度,求角EBD的度数 一个等腰直角三角形的斜边长是10厘米,这个三角形的面积是多少平方厘米 如右图所示用滑轮组匀速提起一个重为350N的物体,物体在10s内竖直上升了1m,人拉绳的力为250N.试求:(1)人做的有用功是多少?(2)总功是多少?(3)额外功是多少?(4)滑轮组的机械效率为 如图所示,已知△abc中,ad⊥bc于d,ad=bd,dc=de,∠5=50°,求∠ebd的度数 时间与位移:田径场跑道周长是400m.(1)百米赛跑选用跑道的直道部分,运动员跑完全程的路程是多少?位移大小是多少?(2)在800m跑比赛中,不同跑道的运动员跑完全程的路程相同吗?跑完全程 如图所示,用滑轮组匀速提起一个中为450N的物体,物体在10S内竖直上升了1m,人拉滑轮的力为250N 滑轮重多少滑轮省一半的力,没图 中望cad如何测量距离用中望的CAD如何测量实际的距离,并换算成米为单位! 等腰直角三角形的斜边长为18厘米,则它的面积为()选择:A,32B,81C,24 抽水马桶水箱漏水怎么办?是有大小水开关的水箱,仔细看了下.是水箱内放水机械在水箱内水满后不会自动停止,导致多余的水从当中泄水管中漏出.请问该如何修理? CAD能测量点到面之间的距离么我想知道这个点到面的距离能用CAD或者CAXA测量出来么,具体是怎么测量.求好人~我是要求这个点到下面这个面的距离,但是他跟线是没有交点的- -所以我不知道要 田径场跑道周长是400m(1)百米赛跑选用跑道的直道部分,运动员跑完全程的路程是多少?位移大小是多少?3)运动员跑一圈的位移路程分别是多少/ 已知AB=AC,AB的垂直平分线MN交AC于点D,并且△BCD的周长为5,BC=2.求△ABC的周长. 在CAD中怎样计算圆的周长 Cad中测量多段距离是什么? 在比例尺是1:2000的图纸上量得一个长方形地的长是10cm宽为6cm这块地的实际面积是()小明与小红都从家去学校小明所走的路程比小红多1/4而小红用的时间比小明多1/5小红与小明行走的速度的 有大小两辆卡车,大卡车的载重量是15吨,小卡车的再亮是大卡车的2/5,大卡车6次运完的货物,小卡车多少次运完? 如图所示,用滑轮组匀速提起一个重为350N的物体,物体在10s内竖直上升了1m,人拉绳的力为250N.试问:(1)人拉绳子做功的功率为多少?(2)滑轮组的机械效率为多少?(3)若用这个滑轮组提起3 已知三角形的面积为100cm^2,求三角形的边长y(cm)与该边上的高x(cm)之间的函数关系式,并写出自变量的取值范围 怎样测量圆的周长? 修一条路已修的和未修的比是1:3,在修300米,已修的和未修的比是3:2,再修300米,比是3:2,这条路多长?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘