Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > ЧекБоксы

Автор: Black_Joker 7.5.2004, 08:06

Есть 2 чекбокса.
Я хочу чтобы когда 1-й чекбокс включен - был выключен 2-й.
А когда 2-й включали - выключался 1-й, но бл включен второй.

Т.е. чтобы был включен только один. А второй автоматически выключался.

Автор: Guest 7.5.2004, 08:12

RadioButton не проще использовать?

Автор: NiJazz 7.5.2004, 08:15

Опиши обработчики событий OnClick у CheckBox'ов и событие OnShow у формы.

Код


procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 // Some code
 CheckBox2.Checked := false;
 // Some code
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
 // Some code
 CheckBox1.Checked := false;
 // Some code
end;

procedure TForm1.FormShow(Sender: TObject);
begin
 if CheckBox1.Checked then CheckBox2.Checked := false;
 else
   if CheckBox2.Checked then CheckBox1.Checked := false;
end;

Автор: Medved 7.5.2004, 08:23

Код


procedure TForm1.chb1Click(Sender: TObject);
begin
  chb2.Checked := not chb1.Checked;
end;

procedure TForm1.chb2Click(Sender: TObject);
begin
  chb1.Checked := not chb2.Checked;
end;