掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
SpinEditの同じプロパティの更新について (ID：23305)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure TFormSetup.CheckBoxSetCh01Click(Sender: TObject); begin SetCheckSpineEdit(CheckBoxSetCh01.Checked, SpinEditSetCh01); end; procedure TFormSetup.CheckBoxSetCh24Click(Sender: TObject); begin SetCheckSpineEdit(CheckBoxSetCh24.Checked, SpinEditSetCh24); end; procedure SetCheckSpineEdit(Check: Boolean; SpinEdit: TSpinEdit); begin if Check then begin SpinEdit.MinValue := 13; SpinEdit.MaxValue := 62; SpinEdit.Value := 13; end else begin SpinEdit.MinValue := 0; SpinEdit.MaxValue := 60; SpinEdit.Value := 0; end; end; こんな程度の結合でいいんじゃない？ CheckBoxとSpinEditの対応付けは ソースコードにイベントハンドラで書いておく程度でいいわけで。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.