//创建一个文本文件procedure TFrmAutomatismBalance.FlatButton3Click(Sender: TObject);var TF:TextFile; PathStr:string;begin PathStr:=ExtractFilePath(Application.ExeName)+FormatDateTime('yyyy-mm-dd',Now())+'.txt' ; AssignFile(Tf,PathStr); ReWrit
Delphi 之 TMemo组件使用TMemo组件属性CaretPos指定光标相对于编辑器的客户区域原点的X和Y的位置当光标在TMemo组件上定位时，显示光标的坐标 panel1.Caption:='当前位置：'+inttostr(Memo1.CaretPos.x)+ ','+inttostr(Memo1.CaretPos.y); Lines 该属性以行为单位向文本编辑器添加或删除文本，可以用Tstring方法完成各种操作，如计算文本的行数、向文本添加行、删除文本的
THotKey组件属性 BiDiMode 设置该属性可指定文本的双向模式，控制读文本的顺序、垂直滚动条的位置。对齐方式不改变组件包含的数量、日期、时间、和当前值。 HotKey使用该属性可设置或改变热键相关的组合键，如ALT+A为默认值 InvalidKeys 无效的组合键 Modifiers 修改组合键 ParentBiDiMode 设置组件是否使用父组件BiDiMode属性 示例 修改热键的默认值。复制代码procedure TForm1.newCtrlA1Click(Send
Delphi 之 标签组件(TLabel组件) 标签组件是比较常用的组件，现在来看看标签组件的常用的基本属性：Align 它的作用是和窗体对齐，对齐的方式有alNone, alTop, alBottom, alLeft, alRight, alClient, alCustom.Alignment 它的作用是标签文本显示的位置，对齐方式为taLeftJustify, taRightJustify, taCenter意思为左边，右边，中间autosize 自动调整标签的大小。true
Delphi 之 编辑框控件(TEdit)TEdit 组件主要用于数据的输入和显示和编辑等操作。AutoSelect 获取组件焦点。该属性只能在单行文本组件使用。值为True为选中。false则不选中。BorderStyle 设置编辑框控件的外观效果。当值为bsSingle，为一个单线边框。为bsNone则无边框CanUndo 该属性可以确定用户修改文本后可以undo方法回退。CharCase 设置编辑框控件文本的大小写。如图所示 MaxLength 设置文本的最大长度，为0表示长度没有限
Delphi 之 TRichEdit组件TRichEdit组件属性 Lines用来编辑单行添加文本或删除文本 HideSelection为true是，组件有焦点，false则无焦点 TRichEdit组件方法 Clear删除文本FindText查找指定的文本示例查找RichEdit组件指定的字符串ibegin:= richedit1.FindText(Edit1.Text,ibegin,Length(RichEdit1.text),[stMatchCase]); if ibegin <&
TPageControl组件属性ActivePage用来显示当前页面。示例：多页面显示procedure TForm1.FormCreate(Sender: TObject);var i:Integer;begin for i:= 0 to PageControl1.PageCount-1 do begin ComboBox1.Items.Add(PageControl1.Pages[i].Caption); end; ComboBox1.ItemIndex:=0;end;procedu
Delphi 之 对话框组件OpenDialog组件OpenDialog用来打开文件的一个对话框。 Filter该属性可设置文件类型单击该属性如图Filter Name设置文件的名字，Filter设置文件的类型复制代码 OpenDialog1.Filter:='文本文件(*.TXT)|*.TXT'; Filefile属性是Tstring类型，它返回文件名字符串及完整的路径名。 FileName 用来设置打开文件对话框文件名文本框的内容。返回一个文件名及完整的路径名。 Titl