Cool, thanks!! Sounds like a typical MS thing - remove a behaviour and call
it a feature.
I'll give it a try and let you know.
Cheers,
Nahum Wild
Game Designer
Realism Ltd
Pre-Register now for the ESDAO beta test!
http://www.esdao.net
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> Behalf Of Patrick Dunford
> Sent: Wednesday, September 13, 2000 8:08
> To: Multiple recipients of list delphi
> Subject: RE: [DUG]: TWebBrowser
>
>
> 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"
>
>
---------------------------------------------------------------------------
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"
