掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
SpinEditの同じプロパティの更新について (ID:23308)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
終わってますが //イベントを共有して procedure TFormSetup.CheckBoxSetCh01Click(Sender: TObject); var s: string; begin s := RightStr((Sender as TCheckBox).Name), 2); sp := FindComponent('SpinEditSetCh' + s) as TSpinEdit; if sp <> nil then begin if (Sender as TCheckBox).Checked then begin sp.MinValue := 13; sp.MaxValue := 62; sp.Value := 13; else begin sp.MinValue := 0; sp.MaxValue := 60; sp.Value := 0; end; end; end; 手元に環境がないので動作確認はしていません。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.