掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
処理を共通化するには？ (ID:24843)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
orzさん 回答有難う御座います。 凄く参考になりました。 ”新たなTFormクラスを作って、それを継承して各Formを作る。” これを利用して、orzさんとはちょっと違ったアプローチでやってみようと思います。 ↓他にもこう言う方法でやろうと考えていました。 procedure TForm1.LabelCaption(Index: Integer); var lblCommon: TLabel; begin if Index = 0 then begin lblCommon := Form2.Label1; end else begin Index = 1 then begin lblCommon := Form3.Label1; end; lblCommon.Caption := 'Hello World'; // 以下、lblCommonで処理 end; ※↑単純にする為、Labelだけで考えています。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.