掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
UnitAのEdit.TextへUnitBからアクセスするには? (ID：23324)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
UnitAのEditChPlay1.TextへUnitBのSpinEditSetChPlay1の値を書き込みたいので次のように記述したところエラー「未定義のEditChPlay1」となります。 どうしたらいいか教えてください。よろしくお願いします。 procedure SetPlayChannel(aValue: Integer; aEdit: TEdit); begin if aValue = 0 then begin aEdit.Color := clBtnFace; end else begin aEdit.Color := clWindow; aEdit.Enabled := true; aEdit.Text := IntToStr(aValue); aEdit.Enabled := False; end; end; procedure TFormSetup.SpinEditSetChPlay1Change(Sender: TObject); begin SetPlayChannel(SpinEditSetChPlay1.Value, EditChPlay1); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.