Axbor Опубликовано 17 мая, 2016 Поделиться Опубликовано 17 мая, 2016 Тут показано реализация на Delphi. http://yaroslavbrovin.ru/new-approach-of-development-of-firemonkey-control-control-model-presentation-part-2-tedit-with-autocomplete-ru/ Я взял FMX.Edit.Autocomplete.pas и добавил в свой проект. И дальше делаю так: void __fastcall TAddDataForm::provincePresentationNameChoosing(TObject *Sender, UnicodeString &PresenterName) { PresenterName = "AutocompleteEdit-style"; } //--------------------------------------------------------------------------- void __fastcall TAddDataForm::FormCreate(TObject *Sender) { String SuggestionList[] = {"Apple","Alow", "Bottom" "Window", "Salom", "Zepto"}; province->Model->Data["suggestion_list"] = (TValue::From<String*>(SuggestionList)); } //--------------------------------------------------------------------------- но ничего не выходит. Что я делаю не так? Цитата Ссылка на комментарий
Axbor Опубликовано 17 мая, 2016 Автор Поделиться Опубликовано 17 мая, 2016 Решил проблему с добавлением Unit вот такого вида: unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, FMX.Controls.Presentation, FMX.Edit; procedure setmodeldata(Edit: TEdit); implementation uses System.Rtti; procedure setmodeldata(Edit: TEdit); var SuggestionList: TArray<string>; begin SuggestionList := ['Россия', 'Украина', 'Белорусь', 'Азербайджан', 'Армения', 'Грузия', 'Казахстан', 'Киргизстан', 'Латвия', 'Литва', 'Молдавия']; Edit.Model.Data['suggestion_list'] := TValue.From < TArray < string >> (SuggestionList); end; end. и вызвал функцию setmodeldata с моей формы. Kitty и Rusland 2 Цитата Ссылка на комментарий
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.