使用TWebBrowser组件输入密钥无法以HTML格式使用

时间:2019-02-05 10:14:05

标签: delphi twebbrowser

我制作了一个具有简单文本形式的php网页,并尝试使用TWebBrowser组件在Delphi中使用该应用程序浏览此页面。问题是我无法按此表格的Enter键获取换行符。我可以输入,鼠标可以正常工作,但是Enter键不起作用。在任何其他浏览器中,它都可以正常工作。 也许与TWebBrowser的OnEnter事件处理程序有关?我真的不知道该如何解决。

1 个答案:

答案 0 :(得分:-2)

procedure TForm1.FormKeyPress(Sender: TObject;var Key: Char);
begin 
  //Don't forget to set the Keypreview property 
  //of the form to true!
  if (Key=#13) then begin 
    Key := #0; 
    Keybd_Event(VK_LCONTROL, 0, 0, 0); //Ctrl key down 
    Keybd_Event(Ord('M'), MapVirtualKey(Ord('M'), 0),0, 0); // 'M' key down 
    Keybd_Event(Ord('M'), MapVirtualKey(Ord('M'), 0), KEYEVENTF_KEYUP, 0); // 'M' Key up 
    Keybd_Event(VK_LCONTROL, 0, KEYEVENTF_KEYUP,  0); // Ctrl key up 
    Keybd_Event(VK_CANCEL, 0, 0, 0);
  end; 
end;

//来源:http://beensoft.blogspot.com/2007/10/fooling-around-with-twebbrowser-4.html
// Keypreview更改为true