|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.04.2018, 20:37 | #1 |
Форумчанин
Регистрация: 21.01.2008
Сообщений: 211
|
TCheckBox[x].Checked = Подсчет количества Checked := True;
Код:
|
25.04.2018, 20:50 | #2 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
И что? Можно было бы и одним if-ом обойтись. Или не видит чекбоксы расположенные, например, на панели?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
25.04.2018, 21:03 | #3 |
Форумчанин
Регистрация: 21.01.2008
Сообщений: 211
|
Панель не юзаю, все лежит на форме. Не видит.
Затея такая, есть X-чекбоксов, при выборе оного, выполняем некую функцию, в прогрессбаре отображаем прогресс, и так далеее выбрали к примеру 4 чекбокса, прогрессбар.макс = 4 |
25.04.2018, 21:06 | #4 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
А OnClick чекбокса меняй значение ProgressBar1.Position на +1 или -1 в зависимости от состояния чекбокса
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
26.04.2018, 01:46 | #5 |
ПШП
Участник клуба
Регистрация: 15.07.2013
Сообщений: 1,869
|
А что "все" лежит на форме? Панель Аватар привел только в качестве примера. Вместо панели можно было упомянуть например TGroupBox, что весьма вероятно.
Но вообще совет Аватар из сообщения #4 самый правильный. Если прогрессбар зависит от состояния неких чекбоксов, то менять его позицию лучше/грамотнее менять именно в событии OnClick чекбокса. |
26.04.2018, 08:15 | #6 |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
TCheckGroup не подойдёт ли?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
26.04.2018, 17:48 | #7 |
Форумчанин
Регистрация: 21.01.2008
Сообщений: 211
|
Только не пинайте
Не красиво (+1) но работает %) Мысль мне понятна, реализация избыточна, что есть то есть. Последний раз редактировалось XerSon; 26.04.2018 в 19:31. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
надо активировать процедуру только когда RadioButton8.Checked=true | Донцов | Компоненты Delphi | 3 | 06.06.2016 01:09 |
input не переключается в checked | woojin | JavaScript, Ajax | 1 | 02.04.2014 12:08 |
PopupMenu - свойство Checked... | tim21701 | Компоненты Delphi | 4 | 28.01.2012 17:45 |
Ranged checked error | agarum | Общие вопросы Delphi | 6 | 19.09.2010 23:34 |
CheckListBox checked iz zarosa | marisham0612 | Общие вопросы Delphi | 1 | 18.12.2009 00:56 |