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

自己对DELPHI学习的一点体会

不用注册新部件就能增加新的方法和属性 (2001年5月25日) 

本站更新  分类:控件使用   作者:David Souchard  推荐:   阅读次数:138  
(http://www.codesky.net)  

--------------------------------------------------------------------------------

有没有办法不需要修改源代码或安装派生部件就能增加新的方法和属性？

增加新的方法和属性
---------------------------------
有时我们要为已有的部件增加新的方法和属性（或改变已有属性的可视性）。一个方法是修改部件，但这意味着对它的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例子。