SpinEditの同じプロパティの更新について (ID:23302)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

下記のようなCheckBoxをクリックしてSpinEditのプロパティを更新するもので、CheckBoxが２４個貼り付けられています。//ここから.....//ここまで、を手続または関数化したいのですが・・・！！
アドバイスよろしくお願いします。

procedure TFormSetup.CheckBoxSetCh01Click(Sender: TObject);
begin
  if CheckBoxSetCh01.Checked                //ここから
    then
      begin
        SpinEditSetCh01.MinValue := 13;
        SpinEditSetCh01.MaxValue := 62;
        SpinEditSetCh01.Value := 13;
      end
    else
      begin
        SpinEditSetCh01.MinValue := 0;
        SpinEditSetCh01.MaxValue := 60;
        SpinEditSetCh01.Value := 0;
      end
  ;                                         //ここまで
end;
      ・
      ・
      ・
      ・
      ・
procedure TFormSetup.CheckBoxSetCh24Click(Sender: TObject);
begin
  if CheckBoxSetCh24.Checked                //ここから
    then
      begin
        SpinEditSetCh24.MinValue := 13;
        SpinEditSetCh24.MaxValue := 62;
        SpinEditSetCh24.Value := 13;
      end
    else
      begin
        SpinEditSetCh24.MinValue := 0;
        SpinEditSetCh24.MaxValue := 60;
        SpinEditSetCh24.Value := 0;
      end
  ;                                         //ここまで
end;

←解決時は質問者本人がここをチェックしてください。

戻る