|
|
|
Junior Member
 
участник
Last Login: 15.12.2006 13:25
Сообщ.: 15,
Visits: 87
|
|
| Delphi7, DBLookupComboBox. Значения выпадающего списка берутся из базы, но при попытке выбора выпадает одно значение с возможностью прокрутки остальных. Подскажите как увеличить количество выпадающих значений, можен свойство какое есть?
|
|
|
|
|
Supreme Being
участник
Last Login: 18.12.2007 11:03
Сообщ.: 121,
Visits: 1 203
|
|
| property DropDownRows: Integer; Желательно всегда открывать help, ведь нужно просто выбрать комбобокс и нажать F1. Так как мы искали какое-то свойство: жмем на TDBLookupComboBox > properties И внимтельно читаем. Там все самое важное будет сверху. На все про все уйдет полминуты.
|
|
|
|
|
новичок
участник
Last Login: 21.11.2006 15:05
Сообщ.: 1,
Visits: 4
|
|
Работающий код - весится на OnDropDown
procedure LookupComboDropDown(Sender: TObject);
begin
if Sender is TRxDBLookupCombo then
with (Sender as TRxDBLookupCombo) do
begin
DropDownCount:=0;
with LookupSource.DataSet do
if Active then
begin
if not IsEmpty then
try
DropDownCount := LookupSource.DataSet.RecordCount;
except
end;
end
else
DropDownCount:=0;
if DropDownCount>10 then DropDownCount:=10;
end;
if Sender is TComboBox then
with (Sender as TComboBox) do
begin
DropDownCount:=0;
DropDownCount:= Items.Count;
if DropDownCount>10 then DropDownCount:=10;
end;
end;
|
|
|
|
|
Forum Member
участник
Last Login: 14.11.2006 9:19
Сообщ.: 40,
Visits: 286
|
|
| To ambarka2 Потише уважаемая, в англоязычной хелпе найти что-то не просто даже если изучал английский. А ваш ответ либо не полный, либо не верный. У мня енти св-во = 7, а выпадает все равно 1 значение. To Mixb Не работает код. Объясните, что такое TRxDBLookupCombo, ведь реч шла о TDBLookupComboBox. Попробовал тупо заменить одно на другое - ошибка не известно св-во DropDownCount. Или это переменная? Вобщ чот не работает.
|
|
|
|
|
Forum Member
участник
Last Login: 14.11.2006 9:19
Сообщ.: 40,
Visits: 286
|
|
| Решил проблему просто (если не сказать тупо): перевел указатель на последнюю запись, опосля вернул на первую (ну вы поняли, чтоб список раскрывался с первой записи). Этот лукапкомбобокс что, не видит записей пока по ним не пробежися? Так и не понял в чем прикол...:)
|
|
|
|