Tastendruck in TWebBrowser simulieren klappt nicht..

[jensw_2000]

Versuch es doch mal mit

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;