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

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

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

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

更新時間: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例子。

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 日韩香蕉网| 91精品国产手机 | 日本不卡高清免费 | 欧美日韩视频在线 | 在线观看日本一区 | 九九九影院 | 国产5g影院天天爽5g视频在线 | 欧美人妖乱hd | 国内小情侣一二三区在线视频 | 欧美高清xxx | 欧美综合国产 | 亚洲国产精品嫩草影院久久 | 免费人成在线观看 | 久久亚洲网 | jizz日本免费 | 国产精品第 | 色福利在线 | 国产三级在线观看免费 | 国产3344永久在线观看视频 | 天天摸天天做天天爽天天弄 | 久久久久亚洲日日精品 | 精品视频午夜一区二区 | 精品国产片 | 国产成人在线影院 | 91精品久久久久久久久中文字幕 | 欧美一级高清片免费一级 | 亚洲色p| 日韩精品免费一区二区三区 | 日韩亚洲欧美视频 | 日本免费特黄aa毛片 | 欧洲激情网 | 性网站免费| 伊人久久狼人 | 欧美激情在线观看一区二区三区 | 国产福利三区 | 久久久999国产精品 久久久999久久久精品 | 免费一级毛片无毒不卡 | 曰曰鲁夜夜免费播放视频 | 国产精品久久毛片蜜月 | 久久www成人看片 | 99热这里只有精品在在 |