[Uniq!]

Ребят, куда копать?

:Набираем первые пару символов, остатки подставляются автоматически из ... ну допустим какого-то поля БД.

Вообще нужно реализовать по этой схеме заполнение 7 полей (Паспортные данные) из Таблицы. Я думаю как: связать все 7мь полей через cxDB...TextEdit скорее всего, а в тот Edit, в который фамилия пишется - подставить выше описанную технологию.

[Alegun]

Сообщение от Uniq!

...Набираем первые пару символов, остатки подставляются автоматически из ... ну допустим какого-то поля БД...

Можно так, напрямую, но лучше через таймер, с задержкой, чтоб успеть что-то набить в Edit

Код:

procedure TForm1.Edit1Change(Sender: TObject);
var
s : string;
begin
s:= Edit1.Text;
if length(s) = 0 then exit;
tbl.Locate('FieldName', s, [loPartialKey]); // поиск по таблице
Edit1.Text:=tbl.FieldValues['FieldName']; // вывод найденого
end;

[Uniq!]

Код:

cxLookupComboBox1.Properties.ListSource.DataSet := MyDataSource1;
cxLookupComboBox1.Properties.ListFieldNames := 'Article';

На другом форуме подсказали. На то он и DevExpress

[Alegun]

Сообщение от Uniq!

...На то он и DevExpress

Не знал, думал что DevExpress это всё равно что ADO...