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

时间:2010-01-26 14:50:23  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:能这样做,因为我们可能没有源代码。这样的话。最好对部件进行派生,并加入新的属性和方法。例如:typeTEditX = class(TEdit)publicfunction GetForeColor: TColor;procedure SetForeC...
  正文:

增加新的方法和属性:

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


不用注册新部件就能增加新的方法和属性》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/2010-01-26/12436.html


关键字:

关于《不用注册新部件就能增加新的方法和属性》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td