delphi - 使用网络浏览器时后退按钮不起作用

Question

我已经下载了 xe6 的试用版并使用了名为 webbrowser 的示例。我想用后退按钮关闭应用程序。

这是我在示例中插入的

procedure TWebBrowserForm.FormKeyUp(Sender: TObject; var Key: Word;
  var KeyChar: Char; Shift: TShiftState);
begin
  if Key = vkHardwareBack then
  begin
    SharedActivity.Finish;
  end;

这可以工作并关闭应用程序..但是当我单击浏览器内的链接然后按后退按钮时，应用程序不会关闭..

我也试过这个http://www.fmxexpress.com/virtual-keyboard-with-twebbrowser-on-android-in-delphi-xe5-firemonkey/

Answer 1

请写 onKeyDown 事件

  if Key = vkHardwareBack then
  begin
    SharedActivity.Finish;
  end;

Answer 2

在 Android 上，您可以改用 TMS Web 浏览器。该组件有一个 OnHardwareButtonClicked 事件，该事件检测硬件后退按钮的单击。我就是这样处理这个问题的。当单击 URL 内的 URL 时，该组件非常友好。