http://members.home.com/hfournier/webbrowser.htm#bugs1
Q: ShortCut (Ctrl-C, Ctrl-O, etc.) and Delete keys have no effect. What's
the problem?
A: It's not a bug, it's a feature. There's information about this in a
Microsoft KnowledgeBase article Q168777. The code below should fix the
problem:
This answer comes to you from the MERS search engine.
http://www.mers.com/searchsite.html
...
var
Form1: TForm1;
FOleInPlaceActiveObject: IOleInPlaceActiveObject;
SaveMessageHandler: TMessageEvent;
...
implementation
...
procedure TForm1.FormActivate(Sender: TObject);
begin
SaveMessageHandler := Application.OnMessage;
Application.OnMessage := MyMessageHandler;
end;
procedure TForm1.FormDeactivate(Sender: TObject);
begin
Application.OnMessage := SaveMessageHandler;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.OnMessage := SaveMessageHandler;
FOleInPlaceActiveObject := nil;
end;
procedure TForm1.MyMessageHandler(var Msg: TMsg; var Handled: Boolean);
var
iOIPAO: IOleInPlaceActiveObject;
Dispatch: IDispatch;
begin
{ exit if we don't get back a webbrowser object }
if WebBrowser = nil then
begin
Handled := False;
Exit;
end;
Handled:=(IsDialogMessage(WebBrowser.Handle, Msg) = True);
if (Handled) and (not WebBrowser.Busy) then
begin
if FOleInPlaceActiveObject = nil then
begin
Dispatch := WebBrowser.Application;
if Dispatch <> nil then
begin
Dispatch.QueryInterface(IOleInPlaceActiveObject, iOIPAO);
if iOIPAO <> nil then
FOleInPlaceActiveObject := iOIPAO;
end;
end;
if FOleInPlaceActiveObject <> nil then
if ((Msg.message = WM_KEYDOWN) or (Msg.message = WM_KEYUP)) and
((Msg.wParam = VK_BACK) or (Msg.wParam = VK_LEFT) or (Msg.wParam =
VK_RIGHT)) then
//nothing - do not pass on Backspace, Left or Right arrows
else
FOleInPlaceActiveObject.TranslateAccelerator(Msg);
end;
end;
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> Behalf Of Nahum Wild
> Sent: Wednesday, 13 September 2000 01:18
> To: Multiple recipients of list delphi
> Subject: RE: [DUG]: TWebBrowser
>
>
> Any type of copy command does not work. I event tried sending a WM_COPY
> message to it, but to no success. :(
>
> > -----Original Message-----
> > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> > Behalf Of Peter Hyde
> > Sent: Tuesday, September 12, 2000 19:24
> > To: Multiple recipients of list delphi
> > Subject: Re: [DUG]: TWebBrowser
> >
> >
> > Nahum wrote:
> >
> > > webpages that it shows. Its most annoying. It completely ignores my
> > > control+C key press.
> >
> > > Has anybody encountered this problem and if so did they solve it??
> >
> > Tried Ctrl-INS, in case that works? Should, in some cases where
> > CTRL-C isn't explicitly defined...
> >
> >
> > cheers,
> > peter
> >
> > ============================================
> > Peter Hyde, WebCentre Ltd & SPIS Ltd, Christchurch, New Zealand
> > * Web automation for online periodicals: http://TurboPress.com
> > * TurboNote+: http://TurboPress.com/tbnote.htm
> > -- easy, small, handy onscreen sticky notes
> > ------------------------------------------------------------------
> > ---------
> > New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> > Website: http://www.delphi.org.nz
> > To UnSub, send email to: [EMAIL PROTECTED]
> > with body of "unsubscribe delphi"
> >
> >
>
> ------------------------------------------------------------------
> ---------
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
