掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
用途によって元クラスの変更をするには？ (ID:33038)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こうじゃないか？ TO1 = class(TWebBrowser) private FA: Integer; published property A:Integer read FA write FA; end; TO2 = class(TWebBrowser) private FB: Integer; published property B:Integer read FB write FB; end; procedure TForm9.Button1Click(Sender: TObject); var O1 : TO1; O2 : TO2; O : TOleControl; begin O1 := TO1.Create(Self); O2 := TO2.Create(Self); if CheckBox1.Checked = True then O := O1 else O := O2; O.Align := alClient; O2.Free; O1.Free; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.