![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
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+Стрелка вниз?