不用注册新部件就能增加新的方法和属性

摘　要：不需要修改源代码或在部件面板中注册派生部件就能为部
源代码网推荐 关键字：delphi delphi3000 方法 派生 继承&n
源代码网推荐 类　别：Object Pascal
源代码网推荐
源代码网推荐
源代码网推荐
源代码网推荐 有没有办法不需要修改源代码或安装派生部件就能增加新的方法和属性？
源代码网推荐
源代码网推荐 增加新的方法和属性
源代码网推荐 ---------------------------------
源代码网推荐 有时我们要为已有的部件增加新的方法和属性（或改变已有属性的可视性）。一个方法是修改部件，但这意味着对它的package重新编译，而且如果要其它人也编译我们的应用程序，就要把我们的变动重新发布，这样对方就很麻烦。有时我们不能这样做，因为我们可能没有源代码。这样的话。最好对部件进行派生，并加入新的属性和方法。例如：
源代码网推荐 type
源代码网推荐 TEditX = class(TEdit)
源代码网推荐 public
源代码网推荐 function GetForeColor: TColor;
源代码网推荐 procedure SetForeColor(color: TColor);
源代码网推荐 property ForeColor: TColor read GetForeColor write SetForeColor;
源代码网推荐 end;
源代码网推荐
源代码网推荐 这些方法可以按下例的方法实现。
源代码网推荐 function TEditX.GetForeColor: TColor;
源代码网推荐 begin
源代码网推荐 Result := Font.Color;
源代码网推荐 end;
源代码网推荐
源代码网推荐 procedure TEditX.SetForeColor(color: TColor);
源代码网推荐 begin
源代码网推荐 Font.Color := Color;
源代码网推荐 end;
源代码网推荐
源代码网推荐 强制转换成新类
源代码网推荐 ------------------------
源代码网推荐
源代码网推荐 我们无需安装新部件或把它注册到部件面板中或在应用程序中取代已有的控件（这样会得不偿失）。相反任何时候只要我们需要访问新属性和方法，我们可以把对象强制转换（如Edit1）成我们的新类，例如：
源代码网推荐 TEditX(Edit1).ForeColor := clRed;
源代码网推荐
源代码网推荐 或
源代码网推荐
源代码网推荐 TEditX(Edit1).SetForeColor(clRed);
源代码网推荐
源代码网推荐 警告：只有在新类中加入新的属性和静态方法时才能把它强制转换成派生类，但不能增加新的字域和新的虚方法或动态方法，虽然理论上你可以重载已有的虚方法。此外，已有属性的可见性可以改变，就象"访问隐藏属性"文中讲解的InplaceEditor例子。