如何在网络浏览器中禁用退格键

Question

当我按 Backspace 时，Web-browser 将转到上一页。如何在不阻止清除文本功能的情况下禁用它？

Answer 1

TWebBrowser似乎没有OnKeydown事件，而且它还有很多其他问题。我通常会忘记它并转到 TMembeddedWB （嵌入式 Web 浏览器组件包），它具有更好的功能。

我编写了一些代码来尝试检测我们是否处于编辑控件中，并且仅有条件地阻止退格键，因为正如 Paktas 所说，简单地阻止 OnKey 事件会中断编辑
网页表单，使用TMembeddedWB，代码如下：

procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  element: IHTMLElement;
  elementTagName: String;
begin
  // form contains field: EmbeddedWB1: TEmbeddedWB which is an improved version of TWebBrowser.
  element := EmbeddedWB1.GetActiveElement;
  if Assigned( element ) then
    begin
      elementTagName := element.tagName;
    end;

 if ( not SameText( elementTagName, 'INPUT' ) ) 
   and ( not SameText( elementTagName, 'TEXTAREA' ) ) then
  if    ((Key= VK_LEFT) and (Shift = [ssAlt]))
     or ((Key= VK_RIGHT) and (Shift = [ssAlt]))
     or (Key= VK_BROWSER_BACK)
     or (Key= VK_BROWSER_FORWARD)
     or(Key = VK_BACK) then
      begin
        Key := 0; { block backspace, but not in INPUT or TEXTAREA. }
        Exit;
      end;


end;

Answer 2

执行此操作的唯一方法是检查每次按键，如果检测到退格键，则忽略它。但是，您还需要监视您的任何输入是否具有焦点，以便用户仍然可以保留向后删除。