Текущий архив: 2004.11.14;
Скачать: 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 вся ветка
Текущий архив: 2004.11.14;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.028 c
