Текущий архив: 2007.03.11;
Скачать: CL | DM;

Вниз

Dbgrid+DBLookupComboBox1   Найти похожие ветки 

← →
vitv ©   (2007-02-19 17:03) [0]

Поместил вот так:
procedure TTest.DBGrid11DrawDataCell(Sender: TObject; const Rect: TRect;
 Field: TField; State: TGridDrawState);
begin
if (gdFocused in State) then
 begin
   if (Field.FieldName = DBLookupComboBox1.DataField) then
   begin
 DBLookupComboBox1.Left := Rect.Left + DBGrid11.Left;
 DBLookupComboBox1.Top := Rect.Top + DBGrid11.top;
 DBLookupComboBox1.Width := Rect.Right - Rect.Left;
 DBLookupComboBox1.Height := Rect.Bottom - Rect.Top;
     DBLookupComboBox1.Visible := True;
   end;
 end;
end;

Когда в ColumsEditor делаю Add all fields,add - не работает.

---

← →
Amoeba ©   (2007-02-19 17:30) [1]

Не понял, зачем весь этот огород городить? В DBGrid и так уже встроено то, что тебе надо - выпадающий список в колонке, связанной с LookUp полем.

---

← →
vitv ©   (2007-02-19 17:34) [2]

Проблема в том, что он появляется после того как:
1. Выбрать ячейку
2. Кликнуть на ячейке
3. Выбрать значение
.....
А тут только надо навести на нужный столбец.

---

Страницы: 1 вся ветка

Текущий архив: 2007.03.11;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.073 c