помощь с checklistbox - Компоненты Delphi

student90 · 14.10.2008, 12:04

подскажите как в checklistboxе можно было бы делать следующее. есть checkistbox. в нем 30 итемок.как сделать чтобы максимальное количество выделяемых итемок было 10?то есть больше 10 уже выделять нельзя

mihali4 · 14.10.2008, 13:36

Ну... Есть же свойство SelCount, его и проверяйте...

student90 · 15.10.2008, 10:13

через selcount не канает. сделал через переменные. вопрос решен

mihali4 · 15.10.2008, 11:17

Цитата:

через selcount не канает

Да, действительно.
Можно вот так:

Код:

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
var i,sum: integer;
begin
sum:=0;
for i:=0 to CheckListBox1.Items.Count-1 do
if CheckListBox1.Checked[i] then
Inc(sum);
if sum>3 then
CheckListBox1.Checked[CheckListBox1.ItemIndex]:=False;
end;

student90 · 16.10.2008, 09:40

спасибо.у меня также.

student90 · 16.10.2008, 09:42

mihali4 подскажи пожалуйста как правильно сделать скин на форму при помощи sskinmanager. а то у меня когда накладываю форма белая ставится. как правильно встроить в ехешник

mihali4 · 16.10.2008, 10:04

Баловство это все. Никогда такими штуками не заморачивался. Не знаю.

student90 · 16.10.2008, 10:14

понятно. а как можно программку украсить?

mihali4 · 16.10.2008, 11:41

http://www.programmersforum.ru/showthread.php?t=17054
http://www.programmersforum.ru/showthread.php?t=20667

14.10.2008, 12:04	#1
student90 Пользователь Регистрация: 15.09.2008 Сообщений: 38	помощь с checklistbox подскажите как в checklistboxе можно было бы делать следующее. есть checkistbox. в нем 30 итемок.как сделать чтобы максимальное количество выделяемых итемок было 10?то есть больше 10 уже выделять нельзя

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Отрисовка CheckListBox.	NikLik	Компоненты Delphi	0	21.09.2008 21:58
MultiSelect в CheckListBox	lexaltd	Общие вопросы Delphi	5	15.08.2008 16:28
Checklistbox	RealSHELS	Общие вопросы Delphi	3	30.07.2008 22:40
CheckListBox	ivp88	Компоненты Delphi	4	12.05.2007 15:49
Переключатели в CheckListBox	ivp88	Компоненты Delphi	2	06.05.2007 09:12

14.10.2008, 13:36	#2
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Ну... Есть же свойство SelCount, его и проверяйте...

15.10.2008, 10:13	#3
student90 Пользователь Регистрация: 15.09.2008 Сообщений: 38	через selcount не канает. сделал через переменные. вопрос решен

16.10.2008, 09:40	#5
student90 Пользователь Регистрация: 15.09.2008 Сообщений: 38	спасибо.у меня также.

16.10.2008, 09:42	#6
student90 Пользователь Регистрация: 15.09.2008 Сообщений: 38	mihali4 подскажи пожалуйста как правильно сделать скин на форму при помощи sskinmanager. а то у меня когда накладываю форма белая ставится. как правильно встроить в ехешник

16.10.2008, 10:04	#7
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Баловство это все. Никогда такими штуками не заморачивался. Не знаю.

16.10.2008, 10:14	#8
student90 Пользователь Регистрация: 15.09.2008 Сообщений: 38	понятно. а как можно программку украсить?

16.10.2008, 11:41	#9
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	http://www.programmersforum.ru/showthread.php?t=17054 http://www.programmersforum.ru/showthread.php?t=20667