Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Combobox.Droppedown [D5, Win2k]

klerk © (2004-10-27 16:20:00)
мастера.
Почему-то при выполенении этого кода 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-28 11:13:00) [1]
Оказалось дело в
Button3.enabled:=false

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

Ega23 (2004-10-27 17:34:00) [2]
Потому что надо думать, когда выбирешь тот или иной контрол под каждую конкретную задачу.

2 klerk:

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

Ega23 (2004-10-27 17:34:00) [3]
Потому что надо думать, когда выбирешь тот или иной контрол под каждую конкретную задачу.

2 klerk:

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

Reindeer Moss Eater (2004-10-27 17:20:00) [4]
Combobox открывается вниз и сразу закрывается. Почему?

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

Ega23 (2004-10-27 17:15:00) [5]
Попробовал просто по кнопке:
procedure TForm1.Button3Click(Sender:TObject); begin Combobox1.DroppedDown:=true; end;

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

klerk (2004-10-27 16:49:00) [6]
Никто не знает?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »