掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
処理を共通化するには？ (ID：24834)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
数値から処理対象のTFormを取得したいわけですね。 FindComponent試してみてください。 TFormのnameがForm1,Form2,Form3..となっていることが前提ですが...。 var frm :TForm; begin //質問では index=0 で Form2の処理のようなので frm :=TForm(FindComponent('Form'+InttoStr(index+2))); with frm do begin Label1.Caption :='Hello World'; //以下目的の処理を記述 end; //with end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.