Текущий архив: 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.047 c
