掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
親の親へのinherited方法は？ (ID：11022)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Component1 = class = (TComponent) procedure TComponent1.xxxx (A:TComponent); begin end; Component2 = class(TComponent1) procedure TCormponent2.xxxx (A:TButton); begin inherited xxxx(TPanel); end; のとき Component2 を継承し xxxx の TPanel の所を TLabel に変えようと 下記のように変更すると Component3 = class(TComponent2) procedure TCormponent3.xxxx (A:TButton); begin inherited xxxx(TLabel); end; Component3 の inherited は Compoent2 に当然いってしまうのですが、 親の親へ inherited する方法は無いのでしょうか？ やはり Component3 = class(TComponent1) とし、変更無い所まで全てコピーするしか無いのでしょうか？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.