Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.05.2007, 13:10   #1
ivp88
Пользователь
 
Регистрация: 14.02.2007
Сообщений: 28
Восклицание CheckListBox

Здравствуйте скажите пожалуйста...как сделать чтобы при выборе двух галочек остальные "потухали"...например нужно из пяти галочек выбратьлюбые две ..а другие три потухнут???
ivp88 вне форума Ответить с цитированием
Старый 09.05.2007, 15:47   #2
Трофимов Александр
Форумчанин
 
Аватар для Трофимов Александр
 
Регистрация: 03.11.2006
Сообщений: 321
По умолчанию

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
form1.RadioButton2.Checked:=false;
... Для каждой оставшейся кнопки то же самое(если кнопок много, то отдельной процедурой)
end;

Соответственно если две, то надо проверять сколько выбрано и тушить например последнюю. Если надо чтобы не были активными, то меняем Checked на Enabled.

Последний раз редактировалось Трофимов Александр; 09.05.2007 в 15:50.
Трофимов Александр вне форума Ответить с цитированием
Старый 11.05.2007, 11:47   #3
ivp88
Пользователь
 
Регистрация: 14.02.2007
Сообщений: 28
По умолчанию

вообще-то мне не нужен RadioButton а нужен CheckListBox
ivp88 вне форума Ответить с цитированием
Старый 11.05.2007, 12:17   #4
Fainder
Участник клуба
 
Регистрация: 15.02.2007
Сообщений: 1,112
По умолчанию примерно так

Может есть способ проще, но долго думать сейчас времени нет:

Цитата:
procedure TForm1.CheckListBox1ClickCheck(Send er: TObject);
var i,j,k : integer;
begin
for i := 0 to CheckListBox1.Count - 1 do begin
if CheckListBox1.Checked[i] = true then
for j:=i +1 to CheckListBox1.Count - 1 do
if CheckListBox1.Checked[j] = true then
for k := 0 to CheckListBox1.Count - 1 do
if (k<>i)and(k<>j) then CheckListBox1.Checked[k]:=false;


end;
end;
Fainder вне форума Ответить с цитированием
Старый 12.05.2007, 15:49   #5
ivp88
Пользователь
 
Регистрация: 14.02.2007
Сообщений: 28
По умолчанию

спасобо большое
ivp88 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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