Title: [ENTER] key in WebBrowser
Question: it has been a known bug in TWebBrowser for a long time
Answer:
and this component fixes that and many other issues
http://www.euromind.com/iedelphi/EmbeddedWb.htm
however, if you are like many, you don't want to install third party components for simple bugs, so here's a simple workaround (dirty solution) for this bug
set the KeyPreview to True in your form, then in the FormKeyPress put
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key=#13) then
begin
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
end
end;
that's it, there you have a WebBrowser with the Enter key enabled
salu2