delphi - 为什么箭头键导航在TWebBrowser中不起作用？

Question

这是一个简单的程序，在VCL应用程序中承载TWebBrowser控件：

单位1

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, 
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  Browser: TWebBrowser;
begin
  Browser := TWebBrowser.Create(Self);
  TOleControl(Browser).Parent := Self;
  Browser.Align := alClient;
  Browser.Navigate('http://www.bbc.co.uk/');
end;

end.

Unit1.dfm

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 587
  ClientWidth = 928
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
end

当我运行该程序时，我希望能够使用向上/向下/向左/向右的箭头键在页面中滚动。但是，这些键无效。我可以使用上一页和下一页，但不能上/下/左/右。

我使用 WebBrowser控件在.net WinForms应用程序中重新创建了等效的应用程序，其行为是相同的。这似乎表明基础控件存在问题。

我可以做些什么来使这些键起作用？还是这仅仅是一个失败的原因？

Answer 1

我相信表单会将这些键解释为对话框导航键。因此，我将控件对WM_GETDLGCODE消息的响应更改为请求控件处理以下键：

type
  TWebBrowser = class(SHDocVw.TWebBrowser)
  protected
    procedure WMGetDlgCode(var Msg: TWMGetDlgCode); message WM_GETDLGCODE;
  end;

procedure TWebBrowser.WMGetDlgCode(var Msg: TWMGetDlgCode);
begin
  inherited;
  Msg.Result := Msg.Result or DLGC_WANTARROWS;
end;

这似乎可以解决问题。