日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

不用注冊新部件就能增加新的辦法與屬性

不用注冊新部件就能增加新的辦法與屬性

更新時間:2022-05-16 文章作者:未知 信息來源:網絡 閱讀次數:

摘 要:不需要修改源代碼或在部件面板中注冊派生部件就能為部
關鍵字: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例子。

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 亚洲国产青草 | 福利一区二区三区视频在线观看 | 在线观看 a国v | 亚洲三级视频在线 | 四虎影视精品永久免费网站 | 国产三级精品三级在专区中文 | 99久久久久国产精品免费 | 日日摸夜夜搂人人要 | 高清视频一区二区 | 亚洲综合色一区二区三区小说 | 日韩视频 中文字幕 视频一区 | 国产91免费| 人成xxxwww免费视频 | 欧美日韩一区二区不卡三区 | 狠狠干最新网址 | 国产视频在线看 | 亚洲 另类 小说 卡通动漫 | 国产精品亚洲精品日韩己满十八小 | 青娱乐青青 | 欧美精品v国产精品v日韩精品 | 色婷婷伊人| 日韩精品一区二区三区在线观看 | 亚洲男人影院 | 天天干天天色天天干 | 日韩在线成人 | xxxxwww一片 | 天天射天天射天天干 | 日韩在线一 | 国产精品亚洲精品日韩已满 | 国产精品a在线观看香蕉 | 极品色综合 | 视频一区色眯眯视频在线 | 欧美色图综合网 | 国产xxxxxx久色视频在 | 国产高清在线视频一区二区三区 | 91精品久久久久久久久久 | 亚洲成人综合视频 | 日韩免费毛片视频 | 中国泡妞ssswww免费 | 日本三级网 | 午夜激情免费 |