Текущий архив: 2003.01.16;
Скачать: CL | DM;

Вниз

DBLookupComboBox   Найти похожие ветки 

← →
CAMOBAP ©   (2002-12-19 15:53) [0]

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

---

← →
Johnmen ©   (2002-12-19 16:12) [1]

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

---

← →
MsGuns ©   (2002-12-19 19:36) [2]

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

---

← →
CAMOBAP ©   (2002-12-20 10:11) [3]

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

Под 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;

---

← →
ЮЮ ©   (2002-12-20 10:20) [4]

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

---

← →
CAMOBAP ©   (2002-12-20 10:40) [5]

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


У DBLookupComboBox нет DropDownCount

---

← →
ЮЮ ©   (2002-12-20 10:52) [6]

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

---

← →
CAMOBAP ©   (2002-12-20 12:38) [7]

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.01.16;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.022 c