| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

DBLookupComboBox

CAMOBAP ©   (2002-12-19 15:53:00) 

Как из DBLookupComboBox убрать полосу прокрутки

---

CAMOBAP   (2002-12-20 12:38:00) [1]

У меня Delphi 5.
Строк всего 1 или 2. DropDownRows пробовал менять, не помогает.

---

ЮЮ   (2002-12-20 10:52:00) [2]

B D6 оно называется DropDownRows (У RxDBLookupCombo это DropDownCount). Вероятно не во всех Delphi оно есть, раз было добавлено

---

CAMOBAP   (2002-12-20 10:40:00) [3]

> Если нужно убрать при действительно небольшом количестве,
> то, обычно, помогает установка DropDownCount на 1 больше,
> чем строк а списке.


У DBLookupComboBox нет DropDownCount

---

ЮЮ   (2002-12-20 10:20:00) [4]

Если нужно убрать при действительно небольшом количестве, то, обычно, помогает установка DropDownCount на 1 больше, чем строк а списке.

---

CAMOBAP   (2002-12-20 10:11:00) [5]

Я сделал следующим образом(изврат конечно) :

Под DBLookupComboBox поместил DBLookupListBox

procedure TForm1.FormCreate(Sender: TObject);
begin
DBLookupComboBox1.DropDownWidth:=1;
DBLookupListBox1.Visible:=false;
i:=2;
end;

procedure TForm1.DBLookupComboBox1CloseUp(Sender: TObject);
begin
DBLookupListBox1.Visible:=false;
i:=1;
end;

procedure TForm1.DBLookupComboBox1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if i>1 then DBLookupListBox1.Visible:=true;
i:=i+1;
end;

procedure TForm1.DBLookupComboBox1Exit(Sender: TObject);
begin
i:=2;
end;

procedure TForm1.FormClick(Sender: TObject);
begin
i:=2;
end;

---

MsGuns   (2002-12-19 19:36:00) [6]

А я им (DBLookupComboBox) вообще не пользуюсь 8)))))

---

Johnmen   (2002-12-19 16:12:00) [7]

А зачем ? Вот в чем вопрос !
:)

---

Наверх