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，会得到以上过程的详细说明。　

　　2.1.3.2 调用Delphi的含参过程　

　　有些过程要求用户指明参数。被调用的过程会在执行时使用传入的参数值，这些值在过程中被认为是已经被说明的变量。例如，LoadFromFile方法在TString对象中被说明为：　

　　Procedure LoadFromFile(const FileName: String)；