Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

PickList ;в TDBGrid


Kudatsky ©   (2002-06-05 12:46:00) 

PickList в TDBGrid легко открывается мышкой.
Как его открыть нажатием на клавиатуру ?


EternalWonderer   (2002-06-05 16:09:00) [1]

procedure TFormGraph.DBGridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
With (Sender As TDBGrid) Do If (Key = VK_SPACE)And(SelectedField.FieldKind = fkLookup) Then Begin
ShowPopupEditor(Columns[SelectedIndex]);
keybd_Event(VK_MENU, 0, 0, 0);
keybd_Event(VK_DOWN, 0, 0, 0);
keybd_Event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0);
keybd_Event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);
End;
end;


Lusha   (2002-06-05 12:51:00) [2]

Alt+Стрелка вниз?


Наверх

Титульная страница Поиск, карта сайта Написать письмо