摘　要：不需要修改源代碼或在部件面板中注冊(cè)派生部件就能為部
關(guān)鍵字：delphi delphi3000 方法 派生 繼承&n
類　別：Object Pascal
  
  

有沒有辦法不需要修改源代碼或安裝派生部件就能增加新的方法和屬性？

增加新的方法和屬性
---------------------------------
有時(shí)我們要為已有的部件增加新的方法和屬性（或改變已有屬性的可視性）。一個(gè)方法是修改部件，但這意味著對(duì)它的package重新編譯，而且如果要其它人也編譯我們的應(yīng)用程序，就要把我們的變動(dòng)重新發(fā)布，這樣對(duì)方就很麻煩。有時(shí)我們不能這樣做，因?yàn)槲覀兛赡軟]有源代碼。這樣的話。最好對(duì)部件進(jìn)行派生，并加入新的屬性和方法。例如：
  type
    TEditX = class(TEdit)
    public
      function GetForeColor: TColor;
      procedure SetForeColor(color: TColor);
      property ForeColor: TColor read GetForeColor write SetForeColor;
    end;

這些方法可以按下例的方法實(shí)現(xiàn)。
  function TEditX.GetForeColor: TColor;
  begin
    Result := Font.Color;
  end;

  procedure TEditX.SetForeColor(color: TColor);
  begin
    Font.Color := Color;
  end;

強(qiáng)制轉(zhuǎn)換成新類
------------------------

我們無需安裝新部件或把它注冊(cè)到部件面板中或在應(yīng)用程序中取代已有的控件（這樣會(huì)得不償失）。相反任何時(shí)候只要我們需要訪問新屬性和方法，我們可以把對(duì)象強(qiáng)制轉(zhuǎn)換（如Edit1）成我們的新類，例如：
  TEditX(Edit1).ForeColor := clRed;

或

  TEditX(Edit1).SetForeColor(clRed);

警告：只有在新類中加入新的屬性和靜態(tài)方法時(shí)才能把它強(qiáng)制轉(zhuǎn)換成派生類，但不能增加新的字域和新的虛方法或動(dòng)態(tài)方法，雖然理論上你可以重載已有的虛方法。此外，已有屬性的可見性可以改變，就象"訪問隱藏屬性"文中講解的InplaceEditor例子。