DELPHI中MEMO组件的光标定位

《DELPHI中MEMO组件的光标定位》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

2、l组件，并在程序代码的前面声明下面这三个变量为整型数，即：VarLpos，Cpos，Linelength：integer；其中Lpos是行的值(按照Memo的规定，第一行为0)，Cpos是字符的位置，LineLength是当前行的字符总个数。然后，再将下面的七行程序代码分别加入Memo1的OnMouseDown和OnKeyDown的事件代码处即可。Lops：=SendMessage(memol.Handle，EM—LINEFROMCHAR，Memol.SelStart，0)；Cpos：=SendMessage(meno1．Handl

3、e，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就将显示出相对应的当前行值、字符位

4、置与当前行的字符总个数了。DELPHI中CHARTFX构件使用详解Delphi是一种新型可视化程序开发工具。它在功能上远远胜过VB，甚至被冠以VB杀手(VBKiller)的美誉。理由之一就是Delphi可以轻松地安装和使用VB的VBX控件并转换VB程序为Delphi程序。本文将就Delphi组件VBX页里ChartFx(图表)构件的特性和使用方法作一较为完备的阐述。相信对读者建立美观的图表有所裨益，并会对Delphi的“属性管理”有更深一步的认识。首先介绍一下工程上经常用到的直方图和饼图的概念。由于实际需要，常需比较一组数据或多组数

5、据的相对大小(如公司中各部门的收支情况比较、金融利率的调整情况等)。为了能够简洁直观地得到比较结果，通常将这些数据放入直角坐标系，以纵坐标的相对大小比较数据，即所谓直方图；或是将各数据转化为百分点，放入一个单位圆，即形成所谓饼图。在Delphi组件VBX页中，ChartFx构件就是以上工程需要而设计的。选取该构件置于窗体上，调整至合适大小，即可见到缺省的图表格式(在未初始化数据时，构件自动生成随机数据充当比较项目)。在对象监视器中，设置不同的属性，还可以看到其它工具条。以下逐条解释各属性：Nseries需比较的数据项的个数。Nval

6、ues每个数据项中的子项目数。TitleDlg图表的标题设置对话框。AdmDlg图表构件绘图区上下左右边缘处注解设置对话框。FontDlg注解文字字体设置。BorderStyle图表构件的边框风格。Height、Width、Top、Left这四项设置图表构件在窗体中的位置及大小。BottomGap、TopGap、LeftGap、RightGap这四项设置图表构件绘图区的位置及大小。ChartType、pThpe、Style这三项设置图表构件及绘图区的类型与风格。Chart3D用以设置是否以三维形式显示数据。ViewRot3D设置观察

7、三维图示的视角。WallWidth设置三维图示中X、Y、Z三壁的厚度。LinebkColor、LineColor、LineStyle、LineWidth设置线条的颜色和风格。PointType设置数据点的形状、类型。RGB3DBK、RGB2DBK、RGBBK、RGBBarHorz设置2/3维图示中背景色。Cursor设置绘图区光标形状。Decimals设置图表中数据显示的小数位数。Stacked设置图表中数据的归一化方式。Grid、VertGridGap设置坐标系的背景网格线。在制作同时比较多组数据的图表时，还需要设置以下属性：。F

8、ixedGap每个数据项之间间隔。ThisPoint数据项的次序。ThisSerie每个数据项中子数据项的次序。ThisBkColor、ThisColor颜色设置。余下的Visible、Hint、HelpContext、Name、Ta