VPF::ЧекБоксы - Форум программистов

Black_Joker

Дата 7.5.2004, 08:06 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 212
Регистрация: 9.11.2002
Где: Таганрог

Репутация: нет
Всего: нет

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

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

Guest

Дата 7.5.2004, 08:12 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

NiJazz

Дата 7.5.2004, 08:15 (ссылка)

(нет голосов)

Загрузка ...

Jazz coder

Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 6
Всего: 23

Опиши обработчики событий 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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154

Код


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

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

--------------------

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »