Очистка ComboBox'a

@Du_Law · Регистрация: 17.07.2013

Author24 — интернет-сервис помощи студентам

Добрый день, форумчане!
Такой вопрос: есть база данных, значения её вывожу в Грид, и есть ComboBox, который служит поиском по базе. Так вот выбирая значение в ComboBox'e, у меня происходит фильтрация в базе и вывод только выбранных значений. После этого мне нужно сбить фильтр и ОЧИСТИТЬ ПОЛЕ COMBOBOX'a. Вот как раз поле очистить не могу...
Прилагаю код и в комментариях то, что я опробовал.

Delphi

procedure TForm1.sButton1Click(Sender: TObject);
begin
     if (ZQuery1.Active = False) and
    (ZQuery1.Filtered = True) then begin
    //ComboBox1.CleanupInstance;
    //ComboBox1.Items.Delete(ComboBox1.ItemIndex); - это ещё и индекс должно удалить, мне этого не надо
    //ComboBox1.ItemIndex := -1;
    //ComboBox1.Clear;
    //ComboBox1.Items.Strings[ComboBox1.ItemIndex] := "" ;
  end else
    ZQuery1.Filtered := false;
    ZQuery1.Active := True;
end;

Добавлено через 42 минуты
Забыл добавить - очистку я провожу через отдельную кнопку.

@Rashiran · 21.09.2013, 17:36

Du_Law, а ComboBox1.Text := '' пробовали? Или у вас стиль csDropDownList?

@Du_Law · 21.09.2013, 17:39 **[ТС]**

Rashiran,
Пробовал и так. Стиль csDropDown, без List.

@northener · 21.09.2013, 17:53

Если я правильно понял проблему, то как-то так:

Delphi

procedure TForm1.sButton1Click(Sender: TObject);
begin
  ZQuery1.Active := False;
  ZQuery1.Filtered := False;
  ComboBox1.ItemIndex := -1;
  ZQuery1.Active := True;
end;

@Du_Law · 21.09.2013, 17:58 **[ТС]**

northener,
Условия

Delphi

if (ZQuery1.Active = False) and
    (ZQuery1.Filtered = True) then begin
    ComboBox1.ItemIndex := -1;
  end else
    ZQuery1.Filtered := false;
    ZQuery1.Active := True;

должны выполняться обязательно, я только должен использовать команду очистки поля.
Попробовал и с

Delphi

1	ComboBox1.ItemIndex := -1;

, толку нет...

@northener · 21.09.2013, 19:07

Сообщение от Du_Law

должны выполняться обязательно, я только должен использовать команду очистки поля.

Так сказал препод? Или религия иначе не позволяет?
Условия то очень смахивают на бред. Может кода приведете немножко больше, а то толку вообще не будет никогда.

@Du_Law · 21.09.2013, 20:43 **[ТС]**

northener,
я сам делал..)
А Ваш метод

Delphi

procedure TForm1.sButton1Click(Sender: TObject);
begin
  ZQuery1.Active := False;
  ZQuery1.Filtered := False;
  ComboBox1.ItemIndex := -1;
  ZQuery1.Active := True;
end;

действительно помог!
Спасибо огромное!

@Rashiran 74 / 71 / 37 Регистрация: 10.09.2011 Сообщений: 169
	21.09.2013, 17:36	2
	Du_Law, а ComboBox1.Text := '' пробовали? Или у вас стиль csDropDownList? 0

@Du_Law 0 / 0 / 0 Регистрация: 17.07.2013 Сообщений: 111
	21.09.2013, 17:39 [ТС]	3
	Rashiran, Пробовал и так. Стиль csDropDown, без List. 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,253
	21.09.2013, 19:07	6
	Сообщение от Du_Law должны выполняться обязательно, я только должен использовать команду очистки поля. Так сказал препод? Или религия иначе не позволяет? Условия то очень смахивают на бред. Может кода приведете немножко больше, а то толку вообще не будет никогда. 0

	21.09.2013, 20:43