Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> помогите с checklistbox 
V
    Опции темы
студентННК
  Дата 14.10.2008, 13:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
подскажите как в checklistboxе можно было бы делать следующее. есть checkistbox. в нем 30 итемок.как сделать чтобы максимальное количество выделяемых итемок было 10?то есть больше 10 уже выделять нельзя
PM MAIL   Вверх
BaD_SeCt0R
Дата 14.10.2008, 14:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lazy Coder
**


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

Репутация: нет
Всего: 18
10 первых или 10 всего?


--------------------
Кто владеет информацией - владеет миром. (С) Френсис Бэкон.
PM MAIL ICQ   Вверх
vladimir74
Дата 14.10.2008, 15:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 3
можно завести переменную, и проверять не равна ли она 10. Если равна - выводить сообщение и т.д. Изменять переменную в onClick...

Это сообщение отредактировал(а) vladimir74 - 14.10.2008, 15:34
--------------------
* В доме помешанного не говорят о миксере.* На любой Ваш вопрос у меня есть любой мой ответ.
PM MAIL   Вверх
BaD_SeCt0R
Дата 14.10.2008, 15:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lazy Coder
**


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

Репутация: нет
Всего: 18
А вообще, циклом на каждый OnClick считать все пункты, которые Checked и проводить проверку


--------------------
Кто владеет информацией - владеет миром. (С) Френсис Бэкон.
PM MAIL ICQ   Вверх
Poseidon
Дата 14.10.2008, 16:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133
SelCount



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
morpheyushka
Дата 14.10.2008, 16:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зеленый человек
**


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

Репутация: 2
Всего: 8
Цитата(Poseidon @  14.10.2008,  16:15 Найти цитируемый пост)
SelCount

Не поможет!!!!

Используй свойство OnClickCheck
В обработчик этого события вставь код:
Код

procedure TForm9.CheckListBox1ClickCheck(Sender: TObject);
var
  i, CountCheck: Integer;
begin
  CountCheck := 0;
  for i := 0 to CheckListBox1.Items.Count - 1 do
    if CheckListBox1.Checked[i] then
      Inc(CountCheck);
  if CountCheck > 10 then
    begin
      CheckListBox1.Checked[CheckListBox1.ItemIndex] := false;
      ShowMessage('Куда разогнался - больше десяти нельзя!');
    end;
end;


Это сообщение отредактировал(а) morpheyushka - 14.10.2008, 16:36


--------------------
user posted image
Спасибо делается вот так!!!
PM MAIL WWW   Вверх
THandle
Дата 14.10.2008, 17:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372
Код

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
{$J+}
const
  CheckedCount: Integer = 0;
{$J-}
begin
  with CheckListBox1 do
    if Checked[ItemIndex] then
      if CheckedCount = 10 then
        Checked[ItemIndex] := False
      else
        Inc(CheckedCount)
    else
      Dec(CheckedCount);
end;


Это сообщение отредактировал(а) THandle - 14.10.2008, 17:04
PM   Вверх
Poseidon
Дата 14.10.2008, 23:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133
Так... либо я чего-то недопонял, либо вы. Но в первом посте ясно вказано:
Цитата(студентННК @  14.10.2008,  13:58 Найти цитируемый пост)
как сделать чтобы максимальное количество выделяемых итемок было 10?то есть больше 10 уже выделять нельзя 
Checked - это явно не выделение.



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
студентННК
Дата 15.10.2008, 09:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
всем спасибо. все работает.
PM MAIL   Вверх
morpheyushka
Дата 15.10.2008, 10:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зеленый человек
**


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

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


Цитата(Poseidon @  14.10.2008,  23:52 Найти цитируемый пост)
Так... либо я чего-то недопонял, либо вы. Но в первом посте ясно вказано:
Цитата(студентННК @  14.10.2008,  13:58 Найти цитируемый пост)
как сделать чтобы максимальное количество выделяемых итемок было 10?то есть больше 10 уже выделять нельзя 
Checked - это явно не выделение.


Если говорить о том, что написал автор, то Вы правы - но тут автор должен пинок получить, так как не правильно выразился. Он должен был написать "количество отмеченных итемов" smile 


Цитата(студентННК @  15.10.2008,  09:06 Найти цитируемый пост)
всем спасибо. все работает. 

поздравляю...вот если бы Вы еще тему закрыли - цены бы Вам не было


--------------------
user posted image
Спасибо делается вот так!!!
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0745 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.