モナーの *やさしい* Delphi質問スレ Ver3
■ このスレッドは過去ログ倉庫に格納されています
0276デフォルトの名無しさん
NGNG新しいプロパティを追加してみたが、このプログラムには
重複させて表示させない為にフォーム表示用の関数を
作成してあるのですが、そこで問題が発生しています。
つまり、この中から新しく追加したプロパティを見る方法
で悩んでます。
----- フォーム作成用共通関数 ----
Application.CreateForm(wClass, wFrmName);
for idx:=0 to Screen.FormCount -1 do
begin
if (Screen.Forms[idx].ClassName=wClass.ClassName) then
begin
if (Screen.Forms[idx].ShowModal=mrOK) then
Result:=Screen.Forms[idx].FormResults.Text;
// ↑
// FormResultsが新しく追加したプロパティだが、この書き方
// ではエラーになる。
Screen.Forms[idx].Release;
end;
end;
コンパイルを通そうとすれば、
if (Screen.Forms[idx].ShowModal=mrOK) then
Result:= FrmKensaku(Screen.Forms[idx]).FormResults.Text;
のようにすれば通るが、これでは、共通の関数としては
問題がある。
何か、いい方法はないでしょうか?
■ このスレッドは過去ログ倉庫に格納されています