4 CheckBox

@kentaw · Регистрация: 24.02.2009

Author24 — интернет-сервис помощи студентам

Есть 4 CheckBox. Надо чтобы, при включение одного выключалас осталные

@John_Pa9JIbHuK · 24.02.2010, 21:31

)))) А в чем проблема??

@kentaw · 24.02.2010, 21:33 **[ТС]**

Зависание

Добавлено через 17 секунд
Зависание. Попробуй

@John_Pa9JIbHuK · 24.02.2010, 21:35

напиши как ты делал

@John_Pa9JIbHuK · 24.02.2010, 21:38

или ты для каждого check писал код?

@kentaw · 24.02.2010, 21:43 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
10
If chekbox1.Chekced=true then begin
chekbox2.Chekced=false
chekbox3.Chekced=false
chekbox4.Chekced=false
end
If chekbox2.Chekced=true then begin
chekbox1.Chekced=false
chekbox3.Chekced=false
chekbox4.Chekced=false
end

и.т.п

Добавлено через 1 минуту
Да для каждого писал эту код

@John_Pa9JIbHuK · 24.02.2010, 21:53

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
begin
checkbox4.Checked:=false;
checkbox2.Checked:=false;
checkbox3.Checked:=false;
end;
end;
 
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if checkbox2.Checked then
begin
checkbox1.Checked:=false;
checkbox4.Checked:=false;
checkbox3.Checked:=false;
end;
end;
 
procedure TForm1.CheckBox3Click(Sender: TObject);
begin
if checkbox3.Checked then
begin
checkbox1.Checked:=false;
checkbox2.Checked:=false;
checkbox4.Checked:=false;
end;
end;
 
procedure TForm1.CheckBox4Click(Sender: TObject);
begin
if checkbox4.Checked then
begin
checkbox1.Checked:=false;
checkbox2.Checked:=false;
checkbox3.Checked:=false;
end;

@kentaw · 24.02.2010, 21:59 **[ТС]**

Эти код нормально ли работает у Вас?

@John_Pa9JIbHuK · 24.02.2010, 22:01

да нормально А что?

@SecretSilent · 24.02.2010, 22:06

Сообщение от kentaw

chekbox2.Chekced=false
chekbox3.Chekced=false
chekbox4.Chekced=false

конечно, зависнет, если вы везде логическое "равно" пишете вместо присваивания.

@Vladiator · 24.02.2010, 22:10

для такого лучше RadioButton. там у объектов с одинаковым GroupIndex автоматом выключаются тогда, когда нужно.

@kentaw · 24.02.2010, 22:18 **[ТС]**

John_Pa9JIbHuK, спасибо большое. Ваш код работает.

Вот мая ошибка

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
checkbox2.Checked:=false;
checkbox4.Checked:=false;
checkbox3.Checked:=false;
checkbox1.Checked:=true;
end;
 
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
checkbox1.Checked:=false;
checkbox4.Checked:=false;
checkbox3.Checked:=false;
checkbox2.Checked:=true;
end;
 
procedure TForm1.CheckBox3Click(Sender: TObject);
begin
checkbox1.Checked:=false;
checkbox4.Checked:=false;
checkbox2.Checked:=false;
checkbox3.Checked:=true;
end;
 
procedure TForm1.CheckBox4Click(Sender: TObject);
begin
checkbox1.Checked:=false;
checkbox2.Checked:=false;
checkbox3.Checked:=false;
checkbox4.Checked:=true;
end;

Новые блоги и статьи Все статьи Все блоги /
sshd restrictions, ssh access limitations jigi33 26.03.2025 sshd restrictions \| ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel	Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .	SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .
Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .	Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .

@kentaw 421 / 130 / 33 Регистрация: 24.02.2009 Сообщений: 1,122

	4 CheckBox 24.02.2010, 21:17. Показов 1138. Ответов 11 Метки нет (Все метки) Есть 4 CheckBox. Надо чтобы, при включение одного выключалас осталные 0

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	24.02.2010, 21:31
	)))) А в чем проблема?? 1

@kentaw 421 / 130 / 33 Регистрация: 24.02.2009 Сообщений: 1,122
	24.02.2010, 21:33 [ТС]
	Зависание Добавлено через 17 секунд Зависание. Попробуй 0

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	24.02.2010, 21:35
	напиши как ты делал 1

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	24.02.2010, 21:38
	или ты для каждого check писал код? 1

@kentaw 421 / 130 / 33 Регистрация: 24.02.2009 Сообщений: 1,122
	24.02.2010, 21:59 [ТС]
	Эти код нормально ли работает у Вас? 0

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	24.02.2010, 22:01
	да нормально А что? 1

@SecretSilent 81 / 81 / 9 Регистрация: 16.02.2010 Сообщений: 637
	24.02.2010, 22:06
	Сообщение от kentaw chekbox2.Chekced=false chekbox3.Chekced=false chekbox4.Chekced=false конечно, зависнет, если вы везде логическое "равно" пишете вместо присваивания. 0

@Vladiator 1574 / 645 / 79 Регистрация: 24.02.2009 Сообщений: 9,268
	24.02.2010, 22:10
	для такого лучше RadioButton. там у объектов с одинаковым GroupIndex автоматом выключаются тогда, когда нужно. 0

Опции темы