掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
コンポーネントのプロパティやTextの変更について (ID：23275)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
igyさん早速のレスありがとうございます。 したいことは、 procedure TFormSetup.CheckBoxRm001Click(Sender: TObject); begin if CheckBoxRm001.Checked //ここから then begin CheckBoxRm001.Color := clLime; end else begin CheckBoxRm001.Color := clBtnFace; end //ここまで ; end; ・ ・ ・ ・ procedure TFormSetup.CheckBoxRm312Click(Sender: TObject); begin if CheckBoxRm312.Checked //ここから then begin CheckBoxRm312.Color := clLime; end else begin CheckBoxRm312.Color := clBtnFace; end //ここまで ; end; のようにCheckBoxが４８個あり、上記のように同じ処理を記述して目的の動作はするのですが、functionにしてcallすればスマートになり、又変更時の対処も容易になるのではと思っています。 アドバイス方よろしくおねがいします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.