Combobox.Droppedown

← →
klerk (2004-10-27 16:20) [0]

мастера.
Почему-то при выполенении этого кода Combobox открывается вниз и сразу закрывается. Почему?
if Selectdirectory("Óêàæèòå ïàïêó ñ ôàéëàìè","",Papka) then
begin
Baza:=Papka + "\Dill.db";
Baznames:=Papka+"\Params.db";

Combobox1.Items.Clear;

Button3.enabled:=false;

query1.sql.clear;
query1.sql.add("select * from ""+Baznames+"" ");
query1.open;

While not query1.Eof do
begin
combobox1.Items.Add(query1.fieldbyname("Basaname").asstring);
query1.next;
end;

Combobox1.DroppedDown:=true;

end;

← →
klerk (2004-10-27 16:49) [1]

Никто не знает?

← →
Ega23 © (2004-10-27 17:15) [2]

Попробовал просто по кнопке:
procedure TForm1.Button3Click(Sender:TObject); begin Combobox1.DroppedDown:=true; end;

- всё прекрасно работает.
Попробуй поиграйся с фокусами. Ещё может быть, что на комбике какое-нибудь событие обрабатывается...

← →
Reindeer Moss Eater © (2004-10-27 17:20) [3]

Combobox открывается вниз и сразу закрывается. Почему?

Потому что надо думать, когда выбирешь тот или иной контрол под каждую конкретную задачу.

← →
Ega23 © (2004-10-27 17:34) [4]

Потому что надо думать, когда выбирешь тот или иной контрол под каждую конкретную задачу.

2 klerk:

кстати, правда, чем тебе DBComboBox не угодил?

← →
klerk (2004-10-28 11:13) [6]

Оказалось дело в
Button3.enabled:=false

Закоментировал - заработало как надо.

Combobox.Droppedown Найти похожие ветки