[seelenus]

Здравствуйте.
Такой вопрос: я в combobox программно ввожу строки и когда кликаю по нему, то этот список выводится. А когда я выбираю строку из этого списка, то список естесственно закрывается, но выбранная строчка не остается в строке ввода combobox-а. Свойство style=csDropDown. Я что-то не так делаю или это глюк Delphi?

[poli-smen]

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

Здравствуйте.
Такой вопрос: я в combobox программно ввожу строки и когда кликаю по нему, то этот список выводится. А когда я выбираю строку из этого списка, то список естесственно закрывается, но выбранная строчка не остается в строке ввода combobox-а. Свойство style=csDropDown. Я что-то не так делаю или это глюк Delphi?

Скорее всего что-то не так делаешь.
Как ты добавляешь строки в ComboBox?
Какая версия Delphi?
Обработчики каких событий назначены у ComboBox?

[seelenus]

Сообщение от poli-smen

Скорее всего что-то не так делаешь.
Как ты добавляешь строки в ComboBox?
Какая версия Delphi?
Обработчики каких событий назначены у ComboBox?

Версия Delphi 7. Добавляю строки следующим образом:

Код:

  with DataModule2.TableFiltStatus do
  begin
    Open;
    while not EOF do
    begin
      Form1.ComboFiltStatus.Items.Add(FieldByName('STAT').AsString);
      Next;
    end;
  end;

Прога делает запрос из таблицы, но я пробовал и просто загнать значения типа string - та же ситуация. А насчет обработчиков... у него пока вообще ничего не назначено. А это необходимо?

[poli-smen]

Всё должно нормально работать.
Создай новый проект. Брось на форму TComboBox и TButton. На обработчик события OnClick у кнопки сделай такой обработчик:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to 20 do
  begin
    ComboBox1.Items.Add(IntToStr(Random(MaxInt)));
  end;
end;

Запусти, нажми кнопку и попробуй выбрать что нибудь в ComboBox-е.

[seelenus]

Сообщение от poli-smen

Всё должно нормально работать.
Создай новый проект. Брось на форму TComboBox и TButton. На обработчик события OnClick у кнопки сделай такой обработчик:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to 20 do
  begin
    ComboBox1.Items.Add(IntToStr(Random(MaxInt)));
  end;
end;

Запусти, нажми кнопку и попробуй выбрать что нибудь в ComboBox-е.

Создал пробный проект и там комбобокс нормально заработал. Потом в старом проекте поставил новый комб. рядом с неработающим и этот новый тоже заработал Тут я вспомнил, что комбобоксы все скопировал (у меня на форме их несколько) один с другого по Ctrl+C, заменил все и они тоже стали нормально себя вести. Видимо этот компонент почему-то не любит, когда его копируют

[poli-smen]

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

Видимо этот компонент почему-то не любит, когда его копируют

Это вряд-ли.
Скопируй в обычный блокнот тот ComboBox, что не работает и тот который работает и сравни их.

[seelenus]

Сообщение от poli-smen

Скопируй в обычный блокнот тот ComboBox, что не работает и тот который работает и сравни их.

Блин... я его уже удалил. Жалко. Не вкурсе, случайно, из-за чего такая фигня может быть?

[poli-smen]

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

Блин... я его уже удалил. Жалко. Не вкурсе, случайно, из-за чего такая фигня может быть?

Нет, не вкурсе. У меня такого с ComboBox не случалось
Единственное предположение, что у него был какой-то обработчик события (при копировании компонентов обработчики событий сохраняются), но по твоим словам обработчиков событий у него не было...