DbGridEh и DropDownBox помогите разобраться.

[Vit@L]

Привет всем. В общем проблема может показаться пустяковой, но все-таки. Ковырял все свойства и никак не получается.
Есть табличка в базе MS Access с перечислением едениц измерения "ЕD". Есть табличка товаров "TOVARY", в которой есть поле (еденицы измерения) в общем в это поле нужно вставить данные из таблицы с перечислением этих едениц "ED". Хочу сделать чтобы при нажатии на ячейку в DBGridEh, в ней появлялся низпадающий список с перечислением едениц измерений. Положил на форма ADOQuery, которая выбирает значения из таблицы едениц измерения, затем положил datasource, связал их между собой. Ковырялся в DBGridEh, но никак не могу сделать так чтобы список выпадал со значениям. Сама кнопка со срелкой вниз в ячейке есть, но при нажатии ничего не происходит и никакой список не появляется. Подскажите что я сделал не так? Может что-то где-то не указал?

Если вдруг кто не понял, то вот пример в 1С, а мне нужно это сделать в DBGridEh.



Заранее спасибо.

[Stilet]

Не знаю как в EhLib а в обычном ДБГриде есть так называемый PickList который нужно при открытии БД наполнять из нее значениями. Это собственно и будет выпадающим списком. Поищи в свойствах DBGridEh такое.

[Vit@L]

Stilet, в том то и дело, что в DbGridEh, это можно сделать вручную в Инспекторе объектов, без написания кода. С написанием кода все понятно, но раз уж есть это свойство, то хотелось бы им пользоваться.

[Stilet]

Ну дык что останавливает?
Вот смотри:

var   s:TStringList;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin
 s:=TStringList.Create;
 Table1.Active:=true;
 Table1.First;
 s.Sorted:=true;
 s.Duplicates:=dupIgnore;
 while not Table1.Eof do begin
  s.Add(Table1.fieldbyname('category').AsString);
  Table1.Next;
 end;
 Table1.First;
 DBGrid1.Columns[1].PickList:=s;
end;

Этот код пройдется по таблице и составит список из нужного поля без дубликатов, а потом список этот присваивается свойству PickList той колонки, которая отвечает за отображение этого поля.
Уяснил суть момента?

[Vit@L]

Stilet, дя я то давно все уяснил, это ты меня не можешь понять. Я еще раз говорю, я знаю как сделать с помощью кода. Мне не нужен код, мне нужно сделать это с помощью свойств в Инспекторе Объектов, а такие свойства у DBGridEh там есть. Вот только колдовал я с ними долго, и ниче не получилось.

Кстати, мой код, немного другой:

adoquery3.SQL.Clear;
adoquery3.SQL.Add('select ED_NAME from ED');
adoquery3.Active:=true;
dbgrideh1.Columns[2].PickList.Clear;
adoquery3.First;
while not adoquery3.Eof do
   begin
      dbgrideh1.Columns[2].PickList.Add(adoquery3['ED_NAME']);
      adoquery3.Next;
   end;

[Stilet]

Мне не нужен код, мне нужно сделать это с помощью свойств в Инспекторе Объектов, а такие свойства у DBGridEh там ест

Так делай
Тогда не понимаю проблемы если у тебя все получается, в чем вопрос то?

[Vit@L]

Stilet, ладно проехали.

Осталось несколько вопросов по DBGridEh:
1. Как сделать чтобы при нажатии на Enter принимал фокус следующий столбец Grad'a?
2. Как сделать, чтобы при получении фокуса, столбец, у которого есть PickList, автоматически появлялся выпадающий список?
3. Как сделать так, чтобы при нажатии на Ins и при появлении новой строчки, фокус принимал первый столбец в Grid'e?

Опять же хорошим примером для более полного понимания моих вопросов может послужить 1С, когда забиваешь табличную часть в документе.

[Stilet]

1. Как сделать чтобы при нажатии на Enter принимал фокус следующий столбец Grad'a?

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
  DBGrid1.SelectedIndex:=DBGrid1.SelectedIndex+1;
end;

3. Как сделать так, чтобы при нажатии на Ins и при появлении новой строчки, фокус принимал первый столбец в Grid'e?

Соответственно:
DBGrid1.SelectedIndex:=0;

[Vit@L]

Stilet, ок, спасибо большое, а по поводу 2-го вопроса не подскажешь????

[Stilet]

а по поводу 2-го вопроса не подскажешь?

Извини, не страдаю таким проносным, как DB контролы