Delphi文本编辑器的设计（二）（转）

Delphi文本编辑器的设计（二）：

4.3.1 TEdit 部件　

TEdit部件是一个标准的编辑框，用户可在编辑框中输入数据。编辑框也可向用户显示数据。编辑时只能读写一行信息。 TEdit的Text属性存放着用户输入的数据或向用户显示的数据，Modified属性用以标识 Text的数据是否改变，可通过设置Maxlength属性值来限制用户输入字符的个数量，CharCase

　　

属性可定义编辑框中字符的大小写。如果设计者想禁止用户输入，可将ReadOnly属性设置成真值。编辑框也能用做密码输入框。通过设置PassWordChar属性的值，可将用户输入的字符在编辑框中显示成指定的字符，如"*"号等。编辑框还可以进行字符选择操作、粘贴、复制和剪切操作。　

4.3.2 TMemo 部件　

TMemo部件与TEdit部件类似，能向用户显示数据，用户也可输入数据。与TEdit部件TMemo部件可以处理多行文本，因此主要用于编辑文件。TMemo的Text属性只能在运行时才能访问。Modified属性用以标识Text的数据是否改MaxLength属性值来限制用户输入字符的数量。Text属性；若想逐行访问，则要使用Lines属性。Lines属性能对文件更方便地进行访问。Lines是TStrings类型的，因此可使用Add、Delete方法，例如在Memo1中加入一行字符串的代码如下： 　

不同的是，

　　

变，通过设置

　　如果把文本当成一个整体进行访问，可使用

Memo1.Lines.Add('Another line is added');　

通过Lines属性可以方便地把文件读入部件中，例程中使用下面的代码将文件读入Memo1：　

Memo1.Lines.loadFromFile(Filename).　

从TMemo 部件中剪切、复制、粘贴文本非常方便，只需使用CutToclipboard ，CopyToClipBroad,PasteFromClipBoard方法，其代码如下：　

　　Memo1.CopyToClipboard

　　

　　

TMemo有一些属性，用以控制文本的显示效果。ScrollBars属性可以定义部件的水平滚动条和垂直滚动条。当文件字体改变时，使用

AutoSize属性可使部件大小做相应的调整。设置WordWrap属性可以实现自动换行。

　　例程中Edit|WordWrap菜单项提供了设置WordWrap的功能，并可根据WordWrap的值决定滚动条的形式。当WordWrap为真时，不需要水平滚动条， 并在菜单中作出检查记号。

其代码如下：　procedure TEditForm.SetWordWrap(Sender: TObject);

　

begin

with Memo1 do

begin

WordWrap := not WordWrap;

if WordWrap then

ScrollBars := ssVertical else

ScrollBars := ssBoth;

WordWrap1.Checked := WordWrap;

end;

SetEditRect;

end;　

TMemo部件提供了一组关于选择文本的属性和方法。如果想在部件成为当前控件时自动选择文本，可设置AutoSelect 属性。运行时可用SelectAll 方法选中部件的全部文本。 Selstart属性返回选中文本的开始位置，SelText 包含着被选中的文本。SelLength属性返回选中文本的长度，这两个属性可用于字符串的查找和替换。下一节将详细讨论。

　　TMemo的Modified属性是一个运行时才能得到的属性，可判断部件被创建时或Modified属性最后一次设置成假值之后，部件上的文本是否修改。如果修改了，Modified将设成真值，反之假值。modified属性，如果文件修改后尚未保存， 将出现对话框，询问用户是否保存文件，其代码如下：　 procedure TEditForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

　　例程中在关闭文件时将测试文件的

　

var

DialogValue: Integer;

FName: string;

begin

if Memo1.Modified then

begin

FName := Caption;

DialogValue := MessageDlg(Format(SWarningText, [FName]), mtConfirmation,

[mbYes, mbNo, mbCancel], 0);

case DialogValue of

id_Yes: Save1Click(Self);

id_Cancel: CanClose := False;

end;

end;

end;　

4.4 常用对话框的使用　 Delphi的可视部件类库(VistualComponent Liberty)中，有一组对话框部件，在对象选择板的Dialog页面中可以找到。 本节着重介绍与文件编辑有关的字体对话框(TFontDialogComponement)，查找对话框(TFindDialogComponement) ，替换对话框(TReplace DialogComponement)，文件对开对话框(TOpenDIalogComponement).

　

　　

应用这几个对话框可对文件进行字体设置、查找、替换等操作，但需要编写相应的代码。　

4.4.1字体对话框部件　 用户可在对话框中进行字体选择和属性设置。用户选择字体并按下OK按钮之后，有关信息便贮存在部件的Font属性中。

　　字体对话框部件在应用程序中产生字体对话框，

　　应用程序可通过调用字体对话框的Execult方法来显示对话框，当用户选择OK按钮时，Execult返回True值，否则返回Flase值。

应用程序可以使用Options属性来定义字体对话框的显示和行为方式：例如可在对话框中定义一个帮助按钮或指定出现在字体列表框中的字体。有关Options的主要取值如下表4.1：　

表4.1 字体对话框的Options取值及含义

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

取值　　　 　　　　　　　含义

───────────────────────────────────────

AdAnsiOnly 如果是真值，只能使用Window字符集，

fdEffects 如果是真值，对话框中显示颜色列表和效果检查框；用户可使

用效果检查框定义Strikout下划线文本；使用颜色列表定义字体

颜色。

fdForceFontExise 　　如果是真值，用户在字体组合框中输入字体名后选择OK按钮，

将出现一个用户字体无效的消息框。

fdNoOEMFont　　　 如果是真值，字体组合框中将不显示向量字体。

fdShowHelp 如果是真值，对话框显示Help按按钮。

fdWysiwyg 如果是真值， 只有打印和屏幕均可得到的字体才会出现在字体

　　　　　　　　　　　 组合框中。

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━(Edit/Font)菜单具有设置文本字体的功能，其代码如下：procedure TEditForm.SetFont(Sender : TObject);

　

　　例程中

　

　　

begin

FontDialog.Font := Memo1.Font;

if FontDialog1.Execult then

Memo1.Fout := FontDialog1.Font;

SetEdit Rect;

Memo1.PasteFromClipboard　 Memo1.CutToClipboard

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10294527/viewspace-123287/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10294527/viewspace-123287/