Как создать выпадающий список в ячейке DBGridEh?

[Garacio2]

Уже побывал на сотнях страниц разных форумов и сайтов, пытаясь найти описание того - как создать выпадающий список для ячейки DBGridEh в режиме редактирования?! Везде пишут про "Lookup" поле... и кругом одно и то-же: Fields Editor, Fields Editor, Fields Editor.... А как в run-time быть? Ну вот запрос выполняем с помощью ADOQuery:

 ADOQuery.Close;
 ADOQuery.SQL.Text := 'SELECT m.M_ID, m.M_Name, s.Rashifrovka FROM Main m, Sprav s'+
   +' WHERE m.M_ID=s.M_ID';
 //тут модифицировать поле s.Rashifrovka !?!?
 ADOQuery.Open;
 //или тут? - ADOQuery.FieldByName('s.Rashifrovka'). ... ?

Как сделать поле s.Rashifrovka - lookup-ным и вывести его в выпадающем списке DBGridEh?
Поясню: в главной таблице поле с индексом, в другой - расшифровка этого индекса, плюс ещё ряд справочных полей (которые для отображения НЕ требуются). Как сделать, что бы при редактирование поля с расшифровкой индекса, появлялся выпадающий список с возможными вариантами?

[mihali4]

Сообщение от Garacio2

Уже побывал на сотнях страниц разных форумов и сайтов, пытаясь найти описание того - как создать выпадающий список для ячейки DBGridEh?

Просто вы не то искали...
Сделайте поиск по фразе "создание lookUp полей runtime" и решите свою проблему.

[Garacio2]

Спасибо,
Сразу-же нашёл:

Когда DataSet открыт - по моему, никак, во всяком случае, судя по хелпу... Когда закрыт - пожалуста: 
with TIntegerField{или любой другой}.Create(DataSet) do try
  FieldKind:=fkLookup;
  Size:=...;
  LookupDataSet:=...;
  KeyFields:=...;
  LookupKeyFields:=...;
except
end;
Только, надо помнить, что если добавить хоть одно поле в ручную, то во время открытия DataSet'а, автоматически не будут создаваться поля для "настоящих" полей ...

А можно как-то сначала автозагрузить все поля, а потом досоздать к ним lookUp поле?

[mihali4]

если добавить хоть одно поле в ручную

Что означает эта фраза?
Я ее понимаю так - нужно определять ВСЕ поля, и "настоящие" (только те, которые нужны для отображения), и лукаповские...

[Garacio2]

Что-то подобное сработает?

var
  DinLookUpField : TStringField; ///если нужно используйте не строковое поле 
begin
  ADOQuery2.Close;
  ADOQuery2.SQL.Text := 'SELECT M_ID, Rashifrovka FROM Color';
  ADOQuery2.Open; //создаём запрос для таблицы-справочника
  ADOQuery1.Close; 
  ADOQuery1.SQL.Text := SELECT m.M_ID, m.M_Name, c.Rashifrovka FROM Master m, '+
  'Color c WHERE m.M_ID=c.M_ID';
  DinLookUpField:=TStringField.Create(ADOQuery1);
  DinLookUpField.FieldKind:=fkLookup;        ///создаем Lookup-поле
  DinLookUpField.FieldName:="DinLookUp";
  DinLookUpField.DataSet:=ADOQuery2;
  ///заполняем нужые свойства, те-же которые обычно заполняютсяя в Design-time
  DinLookUpField.KeyFields:="M_ID";  
  DinLookUpField.LookupDataSet:=ADOQuery1;
  DinLookUpField.LookupKeyFields:="M_ID";
  DinLookUpField.LookupResultField:="Rashifrovka_Name";
ADOQuery1.Open;
end;

Так, чтобы поле создавалось вместе с запросом!?