VPF::перемещатся в CheckBox'ах как в RadioButton

NeiL

Дата 29.1.2008, 21:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Народ возник вопрос: Как сделать так чтобы по checkbox'ам можно было перемещаться аналогично radiobutton'ам. Т. е не может быть checked = true более чем в одном чекбоксе.

Fighter

Дата 29.1.2008, 22:01 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Тогда спрашивается, а зачем тебе checkbox'ы? Используй radiobuttons

NeiL

Дата 29.1.2008, 22:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Я бы и сам не напрягаясь решил этот вопрос используя чекбоксы, но вся фишка в том что надо все сделать используя чекбоксы

Добавлено через 9 минут и 20 секунд
Я бы и сам не напрягаясь решил этот вопрос используя чекбоксы, но вся фишка в том что надо все сделать используя чекбоксы

chip_and_dayl

Дата 29.1.2008, 22:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

NeiL
Тогда при нажатие на ЧекБокс делай проверку,хотя зачем проверку... просто остальные чекбоксы сбрасываеь и всё, а на тот что нажимаешь он сам его поставит в труе;)

--------------------

Фсё будет хорошо!!!

NeiL

Дата 29.1.2008, 23:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Оказывается все довольно легко, просто надо было подумать (конец дня голова совсем не варит).
Cделал общий обработчи OnClick:

Код


procedure Tform_Test.CheckControls(Sender: TObject);
var
 i : Integer;
begin
 for i := 0 to ComponentCount - 1 do
 if (Components[i] is TCheckBox) and (
       Components[i] <> (Sender as TCheckBox)) and ((
         Sender as TCheckBox).State <> cbUnChecked) then
   (Components[i] as TCheckBox).Checked := False;
end;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »