как узнать что выделено 4 CheckBox

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
как узнать что выделено 4 CheckBox

Опции темы

Поиск в этой теме

Опции просмотра

как узнать что выделено 4 CheckBox

07.06.2010, 18:07

Leon2009

Новичок

Регистрация: 01.09.2009

Сообщений: 29

С нами: 8785540

Репутация: 0

как узнать что выделено 4 CheckBox

Здравствуйте! можно ли узнать? у меня на форме 30 CheckBox если из них выделить любые 4 как сделать чтобы хоть сообщение выдал что выделено 4 чекса? спасибо!

𝕏 Twitter Reddit Telegram Копировать ссылку

07.06.2010, 18:12

sn0w

Статус пользователя:

Регистрация: 26.07.2005

Сообщений: 568

С нами: 10943066

Репутация: 1236

переменную сделай++--

зы чтоб OnClick одинаковый обработчик у всех был

ззы вы меня паражаите)

__________________

snow white world wide

наверное так

08.06.2010, 01:09

Leon2009

Новичок

Регистрация: 01.09.2009

Сообщений: 29

С нами: 8785540

Репутация: 0

наверное так

Код:

var i:integer;
begin
i:=0;
if CheckBox1.Checked= true then i:=i+1;
if CheckBox2.Checked= true then i:=i+1;
if CheckBox3.Checked= true then i:=i+1;
if CheckBox4.Checked= true then i:=i+1;
if CheckBox5.Checked= true then i:=i+1;
if CheckBox6.Checked= true then i:=i+1;
label1.Caption:=inttostr(i);
if i>=3 then label2.Caption:='bolshe ili ravno 3';

спасибо!
а если 1000 чексов?

т.е одинаковый обработчик?

08.06.2010, 01:32

diznt

Постоянный

Регистрация: 31.01.2008

Сообщений: 643

С нами: 9619229

Репутация: 445

Цитата:

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

Код:

var i:integer;
begin
i:=0;
if CheckBox1.Checked= true then i:=i+1;
if CheckBox2.Checked= true then i:=i+1;
if CheckBox3.Checked= true then i:=i+1;
if CheckBox4.Checked= true then i:=i+1;
if CheckBox5.Checked= true then i:=i+1;
if CheckBox6.Checked= true then i:=i+1;
label1.Caption:=inttostr(i);
if i>=3 then label2.Caption:='bolshe ili ravno 3';

спасибо!
а если 1000 чексов?

т.е одинаковый обработчик?

Код:

var
 i, i2: integer;
begin
 i2:=0;

 for i:=1 to 8 do
  begin
    if TCheckBox(FindComponent('CheckBox'+inttostr(i))).Checked=true then
     inc(i2);
  end;

 if i2 = 4 then ShowMessage('Выделенно 4 чекбокса');
end;

08.06.2010, 10:25

M_script_

Постоянный

Регистрация: 29.10.2008

Сообщений: 306

С нами: 9227388

Репутация: 180

Цитата:

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

спасибо!
а если 1000 чексов?

т.е одинаковый обработчик?

Пример на билдере
обработчик OnClick всех чекбоксов:

PHP код:


		
			
void __fastcall TMainForm::CheckBoxClick(TObject *Sender)

{

    pCheckBox = static_cast<TCheckBox *>(Sender);

    if(pCheckBox->Checked)

        Label1->Caption = IntToStr(++iCBCount);

    else

        Label1->Caption = IntToStr(--iCBCount);

}

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Если ты попал... (записки бывалого программиста)	ErrorNeo	Статьи	135	23.01.2016 11:59
F.A.Q по Пранку	Nightmarе	Статьи	43	28.03.2010 10:55
«Свиной» грипп как зеркало, в котором видно все…	slesh	Болталка	14	03.11.2009 23:55
Плакаль!!!! Бродил вчера по врачебным форумам, искал инфу про лопнувшие в глазах ....	$G@mer	Болталка	6	12.10.2006 17:12

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход