| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как заставить автоматически выпадать список в DBGrid [D6, D7]
bobsan © (2004-02-09 05:55:00)
Как при получении ячейкой DBGida фокуса, заставить выпадать список, содержащийся в PickList, не нажимая кнопочку.
Byte (2004-02-12 17:33:00) [1]
Я бы залез в компонент DBGrid и подправил его.
Но можно, например, сымитировать раскрытие списка с клавиаатуры:
В событии Грида OnColEnter (для перемещения по горизонтали) и событии Тэйбла AfterScroll (по вертикали) написать
with DBGrid1 do
if (SelectedField.FieldKind=fkLookup) or
(SelectedField.CanModify and
(Columns[SelectedIndex].PickList.Text<>"")) then
begin
EditorMode:=true;
SendMessage(GetWindow(DBGrid1.Handle,GW_CHILD),WM_SYSKEYDOWN,$28,$21500001);
end;
| |
