掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
色々なFormのCreateを動的に行うには (ID:39925)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ついでに言うと、わざわざ親クラスを用意しなくても ShowModal自体が仮想メソッドなので、これをオーバーライドしてしまうというのもアリです。 type TForm2 = class(TForm) public function ShowModal: Integer; override; end; function TForm2.ShowModal: Integer; begin // TForm2.kidou でやっていることをここに書く // その後で継承元のShowModalを呼び出す Result := inherited ShowModal; end; これなら呼び出す方はauさんのコードのままでOKです。 procedure yobidasi( param : TFormClass ); var frm : TForm; begin frm := param.Create(Self); frm.Showmodal; // kidouでやっていたことをこの中でやってしまう end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.