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