掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
用途によって元クラスの変更をするには？ (ID：33037)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
クラスAとBは親は同じで用途は違うけど同一に扱いたいということ？ こちらのイメージでは印刷と印刷プレビューみたいにプロパティは同じだけど動作が違うのを期待しているのでしたら フォームにボタンとチェックボックス１つ置いて組んでみました。 書き込み内容をそのまま使おうとすると至る所でエラー出ますけど それが原因とか言うことは無いですよね？ type A = class(TOleControl) private { Private 宣言 } public { Public 宣言 } end; type B = class(TOleControl) private { Private 宣言 } public { Public 宣言 } end; type TForm1 = class(TForm) Button1: TButton; CheckBox1: TCheckBox; procedure Button1Click(Sender: TObject); private { Private 宣言 } public { Public 宣言 } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var TESTA : A; TESTB : B; C : TOleControl; begin //TESTA Create TESTA := A.Create(Self); //TESTB Create TESTB := B.Create(Self); if(CheckBox1.Checked) then c := TESTA else begin c := TESTB; end; //Cのプロパティ参照 C.Align := alClient; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.