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

DELPHI中MEMO组件的光标定位

HTML文档下载 WORD文档下载 PDF文档下载
DELPHI中MEMO组件的光标定位

作为一个与VisualBasic相类似,但功能更强大的可视化程序开发工具,Delphi同样提供了大量的简单便捷的控制组件,通过这些组件,程序设计者可以设计出规范美观的界面。并且规范化使用者的输入内容。其中,Delphi提供的编辑组件中的Memo组件的功能是非常丰富的。它可以完成对文字的编辑、修改、文件的调入和存储文件等功能,但是与一般的字处理软件相比,它并未提供编辑时对光标位置、所在行及所在列的信息,这不能说不是一个缺憾。其实,通过很简单的几行程序就可以实现这一要求:

先在Form上放置三个Label组件,并在程序代码的前面声明下面这三个变量为整型数,即:

VarLpos,Cpos,Linelength:integer;

其中Lpos是行的值(按照Memo的规定,第一行为0),Cpos是字符的位置,LineLength是当前行的字符总个数。

然后,再将下面的七行程序代码分别加入Memo1的OnMouseDown和OnKeyDown的事件代码处即可。

Lops:=SendMessage(memol.Handle,EM—LINEFROMCHAR,Memol.SelStart,0);

Cpos:=SendMessage(meno1.Handle,EM—LINEINDEX,Lpos,0);

LineLength:=SendMessage(memol.handle,EM—LINELENGTH,Cpos,0);

Cpos:=Memol.SelStart-CPos;

Labell.caption:=inttostr(lpos);

Label2.caption:=inttostr(cpos);

Label3.caption:=inttostr(linelength);

这样,执行程序后,随着在Memo组件中的编辑操作,Label1、Label2和Label3就将显示出相对应的当前行值、字符位置与当前行的字符总个数了。

DraggableDestroy()-JQuery API Droppable(options)-JQuery API DroppableDestroy()-JQuery API Sortable(options)-JQuery API SortableAddItem(elem)-JQuery API $.meta.setType(type, name)-JQuery API data()-JQuery API disableTab(position)-JQuery API enableTab(position)-JQuery API tabs(initial, settings)-JQuery API triggerTab(position)-JQuery API triggerTab(position)-JQuery API Tooltip(settings)-JQuery API PHP简介-PHP初学入门教程1 选择PHP的理由 -PHP初学入门教程2 从一个简单的程序来了解PHP -PHP初学入门教程3 PHP语法基础 -PHP初学入门教程4 建设一个简单的交互网站(一) -PHP初学入门教程5 建设一个简单交互的网站(二) -PHP初学入门教程6 建设一个简单交互的网站(三)密码验证 -PHP初学入门教程7 PHP文件上传 -PHP初学入门教程8 为站点添加投票功能 -PHP初学入门教程9 广告条轮播-PHP初学入门教程10 操作MySQL数据库实现简单的留言板-PHP初学入门教程11 使用PHP来操作Oracle数据库 -PHP初学入门教程12 技术杂项PHP教程结束篇 -PHP初学入门教程13 .NET中DataSet和DataReader的区别与转换 CGI技术及其开发(二)-Delphi资料 CGI技术及其开发(一)-Delphi资料 COM/DCOM中如何传递数组-Delphi资料 COM与DCOM的区别与联系-Delphi资料 为了忘却的纪念(今天是咱们的国耻日) 关于JSP菜单实现的问题? 如何判断数组是否被赋值? 用MSCHART的二维折线图如何实现左右坐标分别标识不同的曲线? 请问招行的网上银行的在网上点击安装是怎么实现的呀? 100分只是开始。。。 如果回答继续加!! 一个template问题,想不出办法,高手请进 送分题:如何改变dll的调试可执行文件? 大家看看代码 真搞不懂为什么出错??? 如何在表单中设置包含字段http://schemas.microsoft.com/cdo/workflow/response 如何使用VBSCRIPT读取本页文本框中的数据, (不能用表单提交和JAVASCRIPT 能不能?) 我在桌面上执行一个应用程序,运行正常,但用pb中调用run("***.exe")运行是出错,提示是少了某些dll文件 我怎么才能使客户端发过来的经UF8编码的中文URL,还原成GD312,能找到页面? 我用openwithparm(w_1,arg),arg明明传递的是LONG型的数据,为什么用message.longparm接收到的是0,而一定要用message.doubleparm才能正确 问一个sql语句如何写,简单! 征集能够同时输出文本和图形的控件! 急寻bmp转gif的代码 封装在Dll中的窗口焦点问题 为什么我用JBUILDER编译JSP文件,用web run执行后会出现这些情况?? 有谁用过CMPPE2.0协议开发过网关程序的请进 win2000下内存使用的问题? 我每次都结贴子的,不信你们查一下啊,这次再请帮忙,谢谢哦 在公共文件夹如公告窗体的原件与回复件是如何关联的? delphi中form中放了一副图,怎样让图可见而form不可见? 一个关于vba的应用问题?合并文档 英文版的vb中该如何来把一个项目进行打包呢(想把它安装到一台没有装vb 的电脑上) 删除多余的重复记录 如何获取屏幕尺寸? 有人用过EasyPack的仿真器吗? 关于QuickRpt报表存盘后出现乱码的问题。 邮件监测器要怎么写?? 关于Web Browser控件 如何加快蓝点linux的安装速度 access 表中的datetime型字段在delphi中如何使用? 《windows 网络编程技术》是哪个出版社的 小弟正学socket编程,有个问题请教! 微软专家请看: Sybase数据库中的中文存储问题! 连接池在TOMCAT中不可用吗?我是新人。 简单的问题? SOS!!!!!!!!高分赠送!!请教大虾们一个有关MSSQL一个问题!! 我在VB.NET下调用弹出对话框,可是无论click确定还是取消,结果都一样,我写的有什么错误吗? 紧急寻找?????????高分求助 关于dbgril的问题。简单的问题加分哦 为什么不能编译这个头文件? 寻bmp转gif代码 vb.net做的control能在基于c#的web form中使用吗? 白痴问题:使用java有什么好处? 在线:在程序中加载任一网页,用鼠标点击任一超连接,均能捕获所点击连接的文本。该如何做? 至今,我不明白为什么使用友元(friend)函数!(50分赠送) Access如何外连接多个表 有一条与水平方向呈30度角的光线,为了使它沿水平方向射出,平面镜与水平面应成多少度角放置 在比例尺是1:20 000的平面图上,长方形的长是8厘米,宽是5厘米,那么这个正方形的面积是多少?xiexiexiexie 阅兵式的观后感文章350字左右的一篇文章,讲阅兵式的,要详细一点的. 一束光射到平面镜上,入射角是30度,倘使平面镜转动10度则反射角是( )度,反射光线转过( )度 达芬奇的密码中有一幅画是:坐在一个椅子上的女人.这个画叫什么. 秋思 500字 充满阳光的生活 作文600左右就行~今天就要~ 《坐在椅子上的女人》谁画的?什么艺术风格?(现实主义,浪漫主义什么的)谢谢! 阅兵式观后感200字作文一定要是200字的作文,求求了 这里的生活充满阳光500字的作文 为什么女人要少坐椅子 初一秋天的文章 500字左右不要理解太深的文章!急用! 高中800字作文.有好的会加分的当生活以一种快节奏 快餐式的方式渗透到我们身心中时 当我们尽享这种方便与快捷,不断追赶时尚潮流时,似乎很少想到我们所缺失的东西.我们到底缺失了什么 一个圆形花坛的半径是6m,它的外面有一条宽2m的环形小路,求小路的面积 六位同学坐一起,每人坐一张凳子,凳子有3条腿的也有4条腿的,人腿和凳腿的总和为33条.你知道3条腿的凳子是多少吗? 作文 那一次,让生活充满阳光600左右,谢谢了回复一楼:偶作文很烂 一个半径是6m的圆形花坛,在其周围铺了一条3米宽的小路,求小路面积? 七年级(2)班召开班委会,恰好每人坐一张凳子,凳子有三条腿和四条腿两种,人腿与凳子腿共33条,请你探究有多少人参加会议?我要二元一次方程,各位高材生, 春游作文300字 秋天的校园500字 急~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 送别人礼物 作文结尾快 春游作文300字谁可以告诉我啊!复制的别来! 女人坐着的时候总是喜欢把腿翘起来,有时候还蹲在凳子上是怎么回事生理上正常吗?为什么男人不? 礼物作文的好结尾送别人礼物 春游作文300字别复制啊!复制的不要来! 有一个圆形花坛,他的周围有一条环形小路,花坛直径10米,小路宽2米,花坛和小路共占地多少平方米? 关于礼物的作文结尾 关于传统佳节.民俗民风的作文 600字 女生分开腿坐在椅子上时会不会感觉比并着腿坐椅子舒服?如图 会感觉下面很通风很凉快吗? 2009年阅兵式作文(不要观后感)(400字左右)主要描写一下阅兵方阵,开头和结尾好一些.要自己写的,别抄别人的!我要的是作文,不是指导! 关于传统佳节的作文多来几篇! 文化场上有一个直径为8.2m的圆形花坛,在花坛周围铺了一条宽1.2M的环形小路,这条小路的面积是多少平方米? 特殊的礼物作文结尾 我的生活充满阳光作文叙事作文600字 每人坐一个凳子,凳子有三条腿的,有四条腿的,人腿与凳子腿共33条,有几个人?请把解题过程一起写上. 这是什么椅子,还是什么凳子﹖ 一个圆形花坛,半径3厘米,如果半径增加1米,那么花坛的面积增加多少平方米? 小明在比例尺是1:100的房屋设计图上,量得房屋的客厅的长6cm,宽4cm.小明的爸爸准备把客厅的地面铺上边长4dm的正方形地砖,大约需要多少块这样的地砖?还有单位不是一样的,注意啊 阅兵式观后感400字求了 要建造一个面积为314平方米的圆形花坛,他的半径是多少?(π取3.14) 小兰在比例尺是百分之1的房屋设计图上,量得自家房屋平面图长14厘米,宽9厘米.小兰的爸爸准备把房屋的地面铺上边长为0.6米的正方形地砖,大约需要多少块这样的地砖? 礼物作文结尾关于礼物的 一个圆形花坛半径是10米,扩建后,半径增加6米.花坛的面积增加了多少平方米? 东湖公园有一个半径为8m的圆形花坛,要在其周围铺设2m的水泥路,这条水泥路的面积是多少平方米? 凳子和椅子有区别吗 小丹在比例尺是1:100的房屋设计图上,量的自家房屋平面长16CM,宽8CM.小丹的爸爸准备把房屋的地面铺上变长为0.8M的正方形地砖,大约需要多少快这样的地砖? 一个半径为8M的圆形花坛,要在其周铺设2M宽的水泥路,这条水泥路的面积是多少平方米? 阅兵式观后感 400字 清明节作文350到400字 我的生活充满阳光 要新的! 阅兵式观后感作文急!3Q 《那一天》高中作文800字以上 急求【春节节日感受作文】不要抄的! 阅兵式观后感作文,尽量不要抄别人的,要400字以上,我已把我所有的财富值都捐出来咯.55555555…… 体验爸爸妈妈的一天作文500字 求一篇《春节节日感悟》的作文450字左右,不要全部抄袭改一点就好 关于初一秋天的作文500字 在比例尺是1:400的图书大厦平面图上,量得图书大厦长20厘米、宽8.5厘米,这座大厦的实际占地面积是 在比例尺是1:100的平面图上,量的一块长方形的长是15厘米,宽是8厘米.这块地的实际面积是多少?能用方程么? 一个圆形花坛的直径是4m,这个花坛的面积是多少?如果在这个花坛修一条宽1m的环形小路,这条小路的面积是多少?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘