Изменение списка в ComboBox, позиция курсора

[palevg]

На форме есть ComboBox.
ComboBox.Items формируется SQL-запросом каждый раз, по событию ComboBox.onChange
Но перед тем, как загнать список из нового SQL, надо его очистить в самом ComboBox, т.е. команда ComboBoxName.Items.Clear
Вот после этой команды курсор прыгает в начало текста комбобокса.

procedure ComboBoxNameChange(Sender: TObject);
begin
  ComboBoxName.Items.Clear;
  Query1.SQL.Add('select Name from peoples where Name like '"+ComboBoxName.Text+'%"');
  Query1.SQL.Add('order by Name');
  Query1.Open;
  if Query1.RecordCount>0 then begin
    Query1.First;
    while not Query1.Eof do begin
      ComboBoxName.Items.Append(Query1.FieldByName('Name').AsString);
      Query1.Next
    end;
  end;
end;

Вопросы:
1) как сделать очистку списка ComboBoxName, чтоб курсор остался на своём месте, а именно - после последнего символа в поле ComboBox?
2) есть ли более простой (ну или быстрый) способ внесения списка из SQL в ComboBox.Items, не используя перебор (While, Repeat и т.п.) ?

[ilich7]

тоже с этим плясал вчера, сегодня нашёл решение в конец своих манипуляций поставь строку:
cb.SelStart := length(cb.Text);

каждый раз будет ставить курсор в конец.

раз уж здесь зашло про комбобох, после решения с курсором столкнулся с проблемой:
Например в списке присутствуют среди прочих строчки сначала "Кипр" , а потом далее "Китай"
при вводе "к" сразу пишется в комбобоксе строка которая более первая "Кипр", а мне например надо "Китай" и выбор осуществляется только мышью. Непонятно почему подставляется строка если на "к" есть ещё строка.

[palevg]

ilich7, спасибо, попробую как оно на практике происходит.

[Аватар]

при вводе "к" сразу пишется в комбобоксе строка которая более первая "Кипр", а мне например надо "Китай" и выбор осуществляется только мышью. Непонятно почему подставляется строка если на "к" есть ещё строка.

Безусловно было бы лучше, если бы в таком случае ничего не подставлялось или наоборот, не первая, а последняя А на практике для такого поиска делают дополнительный Edit и в его OnChange ищут нужную строку в комбобоксе, начинающуюся с символов в эдите