コンポーネントのプロパティやTextの変更について (ID:23273)

名前

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

本文

複数のコンポーネントの同じプロパティを変更する下記のようなプロシジャー処理を関数化する方法を教えてください。
procedure TFormSetup.CheckBoxRm001Click(Sender: TObject);
begin
  if CheckBoxRm001.Checked                  //ここから
    then
      begin
        CheckBoxRm001.Color := clLime;
      end
    else
      begin
        CheckBoxRm001.Color := clBtnFace;
      end                                   //ここまで
  ;
end;
や
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.SpinEditSetCh01Change(Sender: TObject);
begin
  if SpinEditSetCh01.Value = 0            //ここから
    then
      EditSetCh01.Text := ' '
  ;                                       //ここまで
end;

よろしくお願いします。

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

戻る