Симуляция нажатия кнопки при наличии DBGrid

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Симуляция нажатия кнопки при наличии DBGrid

Автор: OAmiry (Borland)

Сын спрашивает у отца:
- Папа, а что такое Windows-98?
- Это сынок как обрезание - во-первых, это красиво...
- А во-вторых?
- Когда пытаешься его лечить, может стать еще хуже!

В случае нажатия клавиши Enter, клавиша по умолчанию не срабатывает, если у вас на форме расположен компонент DBGrid, но вы можете создать обработчик события DBGrid OnKeypUp, уведомляющий кнопку по умолчанию о ее "нажатии" при реальном нажатии клавиши Enter. Пример:

{Код DBGrid OnKeyUp. Default-кнопка - BitBtn1.}
if Key = VK_RETURN then
begin
  PostMessage(BitBtn1.Handle, WM_LBUTTONDOWN, Word(0), LongInt(0)) ;
  PostMessage(BitBtn1.Handle, WM_LBUTTONUP, Word(0), LongInt(0)) ;
end ;