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

Versuch es doch mal mit

markieren

Delphi-Quellcode:

			procedure numkeyp(k:integer); 

begin 

    mf.browser.SetFocus; // { kann ich weglassen oder? ;) } << jetzt nicht mehr ;o)

    Case k of

      2: keybd_event(Ord('2'), 0, 0, 0); 

      8: keybd_event(Ord('8'), 0, 0, 0); 

    end; 

end;

**resolution**

hm, die anwendung läuft ja im hintergrund, verliere ich dann nicht eigentlich den focus bei dem programm mit dem ich gerade arbeite? z.B. Texteditor?

und dann ist doch keybd_event global, s.d. die Zeichen dann auch bzw. doch nur im Texteditor auftauchen würden, oder?

die tasten sind shortcuts für links, ich suche mir also im moment die links anhand von Item().innerText und innerHTML heraus und dann eben Item().Click, ist auch für zukünftige erweiterungen praktischer

Ja, bei keybd_event muss deine Anwendung aktiv sein und der Browser muss den Focus haben.

Schau dir sonst mal SENDKEYS an ... Das könnte noch eine Alternative sein

Tastendruck in TWebBrowser simulieren klappt nicht..

Tastendruck in TWebBrowser simulieren klappt nicht..

Re: Tastendruck in TWebBrowser simulieren klappt nicht..

Re: Tastendruck in TWebBrowser simulieren klappt nicht..

Re: Tastendruck in TWebBrowser simulieren klappt nicht..

Forumregeln

jensw_2000 (Gast) n/a Beiträge	#2 Re: Tastendruck in TWebBrowser simulieren klappt nicht.. 9. Aug 2005, 00:13 Versuch es doch mal mit markieren Delphi-Quellcode: procedure numkeyp(k:integer); begin mf.browser.SetFocus; // { kann ich weglassen oder? ;) } << jetzt nicht mehr ;o) Case k of 2: keybd_event(Ord('2'), 0, 0, 0); 8: keybd_event(Ord('8'), 0, 0, 0); end; end;
	Zitat

jensw_2000 (Gast) n/a Beiträge	#4 Re: Tastendruck in TWebBrowser simulieren klappt nicht.. 10. Aug 2005, 08:42 Ja, bei keybd_event muss deine Anwendung aktiv sein und der Browser muss den Focus haben. Schau dir sonst mal SENDKEYS an ... Das könnte noch eine Alternative sein
	Zitat