Вопрос по Combobox.Items

[kta87]

Combobox.Items грузиться из файла Combobox1.txt , но выбора итемсов не происходит , загружен постоянно itemindex: =0; Что я не так делаю?

procedure TForm1.LoadComboBoxItems;
begin
 ComboBox1.Items.LoadFromFile('ComboBox1.txt');
  // Загружаем в Combobox1 текст из файла txt
 ComboBox1.ItemIndex := 0;
  // Сразу выбираем и отображаем первую строку
end;


procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 LoadComboBoxItems;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
LoadComboBoxItems;
end;

[Пепел Феникса]

но выбора итемсов не происходит

procedure TForm1.ComboBox1Change(Sender: TObject);

а что тут по вашему происходит?

[Человек_Борща]

загружен постоянно itemindex: =0; Что я не так делаю?

procedure TForm1.LoadComboBoxItems;
begin
 ComboBox1.Items.LoadFromFile('ComboBox1.txt');
 ComboBox1.ItemIndex := 0;
end;


procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 LoadComboBoxItems;
end;

Однако....

А ничего, что при измении ItemIndex, вызывается OnChange у ComboBox?

[kta87]

так я и не понял что мне делать то ? Список то у меня отображается, но выбрать я не могу ни чего из этого списка!

[Аватар]

удалить обработчик ComboBox1Change или убрать из него строку LoadComboBoxItems;

[kta87]

Сообщение от Аватар

удалить обработчик ComboBox1Change или убрать из него строку LoadComboBoxItems;

Мудро! СПС!