掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
UnitAのEdit.TextへUnitBからアクセスするには? (ID:23327)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Syakeさん早速のアドバイスありがとうございます。 ソースではご指摘の記述はしてありますがエラーとなります。 尚、 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; に記述はUnitBに在ります。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.