Как сделать нажатие клавиши TVirtualStringTree с более высоким приоритетом?

Question

У нас есть определенная форма поиска на работе, которая была обновлена ​​в последнее время. Его функциональность - это стандартная форма поиска: введите несколько критериев в некоторые поля вверху, нажмите кнопку «Поиск» и отобразите результаты в сетке ниже. Но он был уродливым и очень ограниченным по функциональности, поэтому один из моих коллег перестроил его ... прямо перед отъездом на новую работу. Теперь я пытаюсь выполнить последние несколько деталей.

Одним из изменений стала замена старой сетки TListBox гораздо более мощным TVirtualStringTree. Но в этом процессе, похоже, что-то сломалось: раньше, если вы щелкнули по строке в сетке (указав сетку в фокусе фокуса) и нажав Введите, соответствующий обработчик событий будет запускать и обрабатывать ваш ввод, открытие подробное представление выбранного элемента. В этой сетке, однако, нажатие Введите вызывает TButton на форме с Default = true собственности, чтобы запустить его OnClick вместо.

Как я могу сделать TVirtualStringTree иметь преимущество, когда он имеет фокус ввода, так что он будет реагировать на то, что пользователь будет нажимать клавишу Enter перед (и предпочтительно вместо), отправляя ее в форму?

Answer 1

Обращайтесь с сообщением WM_GETDLGCODE и включите DLGC_WANTALLKEYS в возвращаемое значение. Например:

procedure WMGetDlgCode(var Message: TWMGetDlgCode); message WM_GETDLGCODE; 

.... 

procedure TMyControl.WMGetDlgCode(var Message: TWMGetDlgCode); 
begin 
    inherited; 
    Message.Result := DLGC_WANTALLKEYS; 
end; 

В зависимости от того, или нет уже обрабатывает элемент управления это сообщение и возвращает нечто иное, чем 0 вам, возможно, придется использовать:

Message.Result := Message.Result or DLGC_WANTALLKEYS; 

Если вы не хотите, чтобы изменить код для этого класса, затем используйте интерполятор или установите свойство WindowProc элемента управления для перехвата его оконной процедуры.