一个调用delphi方法的简单例程.txt

一些重要并且经典的编程实例

1．	一个调用Delphi方法的简单例程
 下文将通过对一个Memo部件的文本进行剪切、拷贝、粘贴、清除等编辑的应用程序编制，介绍使用Delphi过程和函数的调用方法。

       Memo(备注)部件有一个CutToClipboard方法，实现将用户在memo中选择的文本移到剪贴板上去。由于这个功能已经被建立在此方法中了，所以您只需知道这个方法做什么以及如何使用它即可。

       下面的语句表明如何调用一个名为Memo1的memo部件的CutToClipboard方法：　

       Memo1.CutToClipboard;　

       通过指定Memo1的名称，说明调用哪一个部件的CutToClipboard方法。如果不指明对象名称，Delphi会显示Unknown identifier错误。当该事件处理过程被触发，程序会执行CutToclipboard中的语句，将Memo1中的文本剪贴到剪贴板上去。

       下文的例程展示了如何调用Delphi的方法，实现将备注部件的文本信息剪切、拷贝到剪贴板上；将剪贴板上的标记文本粘贴到备注中，清除备注部件中的全部文本等四个功能。

       打开一个新的空窗体，加入一个memo部件和四个按钮，并排列整齐。改变按钮部件的Name属性，分别命名为Cut,Copy,Paste,Clear。您会发现，当Name属性发生改变时，Caption属性将发生相应的变化。在Caption属性前加标“&”号设立加速键

        将memo部件的ScrollBars属性设为ScVertical，以便加上滚行条。将WordWrap属性设置为True，这样当用户输入文本到达Memo部件的右边缘时会自动回行。将Line属性第一行的Memo1文本删除，使得memo部件在初始显示时为空的。

为每一个按钮建立如下的事件处理过程：　

procedure TForm1.CutClick(Sender: TObject)；

begin

Memo1.CutToClipboard;

end;　

procedure TForm1.CopyClick(Sender: TObject);

begin

Memo1.CopyToClipboard;

end;　

procedure TForm1.PasteClick(Sender: TObject);

begin

Memo1.PasteFromClipboard;

end;　

procedure TForm1.ClearClick(Sender: TObject);

begin

Memo1.clear;

end;　

        执行此程序。您可以在备注部件中输入文本，在进行了文本的标记后，可以任意地进行剪切、拷贝、粘贴和清除。当按钮被按动时，就调用相应的过程进行处理。用户可以通过查阅在线帮助进行Memo部件的Topic Search，在Memo Component项中查阅Method，会得到以上过程的详细说明。