Скачать: CL | DM;

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 не угодил?

---

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

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

2 klerk:

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

---

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

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

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c