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

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

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

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;

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

@kentaw 421 / 130 / 33 Регистрация: 24.02.2009 Сообщений: 1,122
		1
	4 CheckBox 24.02.2010, 21:17. Показов 1118. Ответов 11 Метки нет (Все метки) Есть 4 CheckBox. Надо чтобы, при включение одного выключалас осталные 0

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

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

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

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

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

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

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

	24.02.2010, 22:18