2011计算机等级考试Delphi面向对象的编程方法

　　2.2.3.2 重载一个方法

　　您可以重载(Override)一个方法。通过在后代对象中说明一个与祖先对象重名的方法，就可以重载一个方法。如果想使这个方法在后代对象中作和祖先对象中一样的工作但是使用不同的方式时，您就可以重载这个方法。Delphi不推荐您经常重载方法，除非您想建立一个新的部件。重载一个方法，Delphi编译器不会给出错误或警告提示信息。

　　2.2.4 对象公有域和私有域的说明

　　当使用Delphi的环境来建立应用程序时，您可以在一个TForm的后代对象中加入数据域和方法，也可以通过直接修改对象类型说明的方法来为一个对象加上域和方法，而不是把一个部件加入窗体或事件处理过程中。

　　您可以在对象的Public或Private部分加入新的数据域和方法。Public和Private是Object Pascal的保留字。当您在工程中加入新的窗体时，Delphi开始建立这个新窗体对象。每一个新的对象都包含public和private指示，以便您在代码中加入数据域和方法。在public部分中说明其它库单元中对象的方法也可以访问的数据域或方法。在private部分的说明有访问的限制。如果您在private中说明域和方法，那么它在说明这个对象的库单元外是不透明的，而且不能被访问。private中可以说明只能被本库单元方法访问的数据域和本库单元对象访问的方法。过程或函数的程序代码可以放在库单元的implementation部分。

　　2.2.5 访问对象的域和方法

　　当您想要改变一个窗体对象的一个域的某个属性，或是调用它的一个方法时，您必须在这个属性名称或调用方法之前加上这个对象的名称。例如，如果您的窗体上有一个编辑框部件，而您需要在运行中改变它的Text属性，需要编写下列的代码：

　　Edit1.Text := 'Welcome to Delphi';

　　同样，清除编辑框部件中选中的文本，可以调用TEdit部件的相应方法：

　　Edit1.ClearSelection;

　　如果您想改变一个窗体对象中一个对象域的多个属性或调用多个方法时，使用with语句可以简化您的程序。with语句在对象中可以和在记录中一样方便地使用。下面的事件处理过程在响应OnClick事件时，会对一个列表框作多个调整：

　　procedure TForm1.Button1Click(Sender:TObject);

　　begin

　　ListBox1.Clear;

　　ListBox1.MultiSelect :=True;

　　ListBox1.Item.Add('One');

　　ListBox1.Item.Add('Two');

　　ListBox1.Item.Add('Three');

　　ListBox1.Sorted :=Ture;

　　ListBox1.FontStyle :=[fsBold];

　　ListBox1.Font.Color :=clPurple;

　　ListBox1.Font.Name :='Times New Roman';

　　ListBox1.ScaleBy(125,100);

　　end;

　　如果使用了With语句，则程序如下：

　　procedure TForm1.Button1Click(Sender:TObject);

　　begin

　　with (ListBox1) do

　　begin

　　Clear;

　　MultiSelect :=True;

　　Item.Add('One');

　　Item.Add('Two');

　　Item.Add('Three');

　　Sorted :=Ture;

　　FontStyle :=[fsBold];

　　Font.Color :=clPurple;

　　Font.Name :='Times New Roman';

　　ScaleBy(125,100);

　　end;

　　end;

　　使用with语句，您不必在每一个属性或方法前加上ListBox1标识符，在With语句之内，所有的属性或调用方法对于ListBox这个对象而言都是在它的范围内的。