Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.08.2022, 15:13   #1
tarakan1983
Форумчанин
 
Аватар для tarakan1983
 
Регистрация: 09.09.2008
Сообщений: 418
По умолчанию AdvSearchEdit + AdvSearchList

Здравствуйте.
Есть задача : реализовать автоматическое заполнение адреса из сервиса dadata.ru(ак на скрине)
Алгоритм такой : на событии OnChange запускается поток, в котором идет обращение в сервис dadata.ru. Полученый результат записывается в Stringlist, потом по Synchronize добавлять в визуальный компонент.
Перепробовал МНОГО TEdit и TCombobox.
Наиболее приемлемо для меня ведет себя AdvSearchEdit из набора TMS VCL (в связке с AdvSearchList).
Есть пара моментов :
1. После того как ЭНТЕРОМ выбираешь нужный item из выпадающего списка происходит SelectAll всего что есть в AdvSearchEdit.Text, а мне нужно чтобы курсор становился в конец строки. У простого CombobBox есть событие procedure TForm1.ComboBox1CloseUp в нем я прописывал PostMessage(ComboBox1.Handle, WM_KEYDOWN, VK_END, 0). У этого компонента нет такого события, и все другие я перебрал не получилось. Подскажите как реализовать курсор в конец строки после выбора нужного item
2. Не понял почему, но иногда пропадает курсор в AdvSearchEdit, т.е. не видно где сейчас "каретка".

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

Последний раз редактировалось tarakan1983; 19.08.2022 в 15:16.
tarakan1983 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск