チェックボックスについて

解決

風太 2005-06-03 01:27:37 No: 15292

ページコントロールの中の二つのページにチェックボックスを設定していますが
一つのチェックボックスをいじるとほかのページのチェックボックスも同じく
変わる（双方向に変えたい）ようにしたいのですがオブジェクトインスペクタ
で設定できませんか。
よろしくお願い致します。

通り過ぎた 2005-06-03 01:40:56 No: 15293

CheckBox1とCheckBox2があったとして、適当にCheckBox1のCheckイベントに

procedure TForm1.CheckBox1Click(Sender: TObject);
var
   B : Boolean;
begin
  B := TCheckBox(Sender).Checked;
  CheckBox1.Checked := B;
  CheckBox2.Checked := B;
end;

とか書いて、あとは、CheckBox2のCheckイベントをオブジェクトインスペクタでCheckBox1Clickにしてやればいいのでは？

風太 2005-06-03 18:09:58 No: 15294

たすかります。どうもありがとうございました。