Well, All I needed to do was add this (below) to my main pas.
initialization
OleInitialize(nil);
finalization
OleUninitialize;
Thanks for the pointer to the
http://members.home.com/hfournier/webbrowser.htm#bugs1 site Patrick.
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> Behalf Of Nahum Wild
> Sent: Wednesday, September 13, 2000 14:12
> To: Multiple recipients of list delphi
> Subject: RE: [DUG]: TWebBrowser
>
>
> 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"
>
>
---------------------------------------------------------------------------
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"
