В контрол "заносится" горячая клавиша

[altcore]

Есть форма, на которой курсор всегда установлен на каком-нибудь контроле типа TDBNumberEditEh. По горячей клавише NUM_ADD (+) вызывается формочка вставки нового документа. Но символ '+' успевает занестись в контрол. Пробовал все события на форме вроде OnKeyDown/Press/Up. Результат тот же. Как обойти?

add:

вопрос решился отказом от стандартных обработчиков:
Код:

...
private
  procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
...
const
  MyHotKey = ord(VK_ADD);

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  MessageBeep(0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Form1.Handle, MyHotKey, 0, MyHotKey);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnRegisterHotKey(Form1.Handle, MyHotKey);
end;

add2:

Но таким образом клавиша "+" не работает в других приложениях. Хотел выкрутиться повесив регистрацию/разрегистрацию на события onActivate/onDeactivate. Предполагалось, что при потере фокуса формой, клавиша будет нормально работать, но этого не произошло, что посоветуете?

[JTG]

У этого TDBNumberEditEh есть onKeyDown?

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
begin
    if (Key = VK_ADD) then Key = 0;
end;

[altcore]

Событие есть, но это не решает проблему. Удалось выкрутиться так:

procedure TfmEditBase.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
...
  if (Key = VK_ADD) then begin
     Key := 0;
     clear := true;
     AddRec();
  end;
...
end;

procedure TfmEditBase.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if clear = true then begin
    Key := #0;
    clear := false;
  end;
end;