Перехват нажатие клавиш в табличной части формы

[estar]

Здравствуйте, помогите разобраться с компонентом "Таблица".
Нужно перехватывать нажатие клавиш по всей активной форме, если даже фокус находится на таблице.
На самой форме разобрался, вот пример:

procedure OnWindowShow(Sender: TObject);
begin
TWindow(Sender).KeyPreview := True;
TWindow(Sender).OnKeyUp := @ MyScript;
end;

А вот а когда фокус попадает на таблицу то не работает.

[admin]

Если у вас окно редактирования, то надо включить перехват клавиш и обрабатывать событие OnKeyDown формы:

Код: Выделить всё

procedure EditWindowKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   ...
end;

procedure Form_Create;
begin
   Self.EditWindow.KeyPreview := True;
   Self.EditWindow.OnKeyDown := @EditWindowKeyDown;
end;


[estar]

Спасибо! И еще один момент, можно как-то перехватить нажатие клавиш в табличной части в поиске как показана на скриншоте (выделено) или как можно отключить поиск в табличной части?