|
Вопрос # 5 209/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
Хочу связать DBLookup ComboBox с DBRadioGroup таким образом, чтобы при выборе какого-то значения DBLookupComboBox можно было бы выбрать один из вариантов DBRadioGroup. Если же ни одно значение не выбрано, то варианты DBRadioGroup соответственно недоступны. Подскажите, пожалуйста, как это лучше реализовать.
 |
Вопрос задала: Anya (статус: Посетитель)
Вопрос отправлен: 18 апреля 2011, 17:30
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 3; последнее сообщение — 18 апреля 2011, 21:09; участников в обсуждении: 3.
|
min@y™ (статус: Доктор наук), 18 апреля 2011, 18:50 [#1]:
А что не получается-то?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
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.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|