Tastendruck in TWebBrowser simulieren klappt nicht..

**resolution**

Hallo

erstmal den code der procedure die den tastendruck in browser=TWebBrowser simulieren sollte:
(geht testweise nur um Numpad 8 und Numpad 2)

markieren

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:

markieren

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

Tastendruck in TWebBrowser simulieren klappt nicht..

Tastendruck in TWebBrowser simulieren klappt nicht..

Forumregeln