掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
コンポーネントのプロパティやTextの変更について (ID:23277)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
igyさんのイベント共有が望ましいが、質問にそのまま答えるならコレ procedure CheckBoxClick(aCheckBox: TCheckBox); if aCheckBox.Checked //ここから then begin aCheckBox.Color := clLime; end else begin aCheckBox.Color := clBtnFace; end //ここまで ; end; procedure TFormSetup.CheckBoxRm001Click(Sender: TObject); begin CheckBoxClick(CheckBoxRm001); end; もっとも、このような関数化したとしても以下のようにした方がきれいです。 procedure TFormSetup.CheckBoxRm001Click(Sender: TObject); begin CheckBoxClick(TCheckBox(Sender)); end; ＆ > （１）コード上から、残りの47個すべてに対し、 > CheckBoxRmXXXXX.OnClick = CheckBoxRm001Click; > のように指定するか、 > > （２）Shift+Clickで残りの47個すべてを選択状態にして、 > オブジェクトインスペクタ：イベントの「OnClick」欄で > CheckBoxRm001Clickを選択する。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.