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 пробовал менять, не помогает.

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