Hallo
erstmal den code der procedure die den tastendruck in browser=TWebBrowser simulieren sollte:
(geht testweise nur um Numpad 8 und Numpad 2)
Delphi-Quellcode:
procedure numkeyp(k:integer);
begin
mf.browser.SetFocus; { kann ich weglassen oder? ;) }
case k of
8: PostMessage(mf.browser.Handle,WM_KEYDOWN,VK_NUMPAD8,0);
2: PostMessage(mf.browser.Handle,WM_KEYDOWN,VK_NUMPAD2,0);
else
end;
PostMessage(mf.browser.Handle,WM_KEYUP,0,0);
end;
und das ist eine dummy-webpage:
Code:
<
html>
<body>
<script language=javascript>
document.onkeypress=keyevent;
function keyevent(e)
{
document.write(String.fromCharCode(window.event.keyCode).toUpperCase());
}
</script>
der TWebBrowser bekommt von dem 'tastendruck' nichts mit, wenn ich die taste selbst drücke funktioniert es..
das problem ist also, wie ich den tastendruck simuliere, wie mache ich es richtig?
bitte kein verweis auf die suche, da hab ich mir postmessage rausgesucht
danke + lg,
resolution