Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 5 209

/ вопрос открыт /

Здравствуйте, уважаемые эксперты!
Хочу связать DBLookup ComboBox с DBRadioGroup таким образом, чтобы при выборе какого-то значения DBLookupComboBox можно было бы выбрать один из вариантов DBRadioGroup. Если же ни одно значение не выбрано, то варианты DBRadioGroup соответственно недоступны. Подскажите, пожалуйста, как это лучше реализовать.

Anya Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задала: Anya (статус: Посетитель)
Вопрос отправлен: 18 апреля 2011, 17:30
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 3; последнее сообщение — 18 апреля 2011, 21:09; участников в обсуждении: 3.
min@y™

min@y™ (статус: Доктор наук), 18 апреля 2011, 18:50 [#1]:

А что не получается-то?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Anya

Anya (статус: Посетитель), 18 апреля 2011, 20:00 [#2]:

Насколько я понимаю, изначально, пока ни одно значение из DBLookupComboBox не выбрано, DBRadioGroup должен быть не активен. Как только выбрано какое-то значение из DBLookupComboBox, должна появляться возможность выбора одного пиз значений DBRadioGroup. У меня либо вообще никакой реакции на событие, либо DBRadioGroup гаснет при выборе значения из DBLookupComboBox.
procedure TForm1.DBLookupComboBox2Click(Sender: TObject);
begin
if DBLookupComboBox2.ListFieldIndex=-1
then DBRadioGroup1.ItemIndex:=-1;
end;
Егор

Егор (статус: 10-ый класс), 18 апреля 2011, 21:09 [#3]:

не. у RadioGroup лучше пользоваться свойством Enabled. Примерно так:
procedure TForm1.DBLookupComboBox2Click(Sender: TObject);
begin
  DBRadioGroup1.Enabled := DBLookupComboBox2.ListFieldIndex <> -1;
end;
только надо изначально сделать недоступным DBRadioGroup1. например, в инспекторе объектов
Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его.
— Donald E. Knuth.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:53
Выполнено за 0.02 сек.