Article

From:
To:
Andre Dedio
Subject:
Re: TEAMB Help... twebbrowser just doesnt work
Newsgroup:
borland.public.delphi.internet

Re: TEAMB Help... twebbrowser just doesnt work

adding tabs to web browser (not 100% but it works)

1) add activex to your uses. 2) add
    FOleInPlaceActiveObject : IOleInPlaceActiveObject;     procedure MyMessage(var Msg: TMsg; var Handled: Boolean);    in the private section (under uses)
3) on form load (or the first routine that executes)
   application.OnMessage := mymessage;


4) add
procedure form1.MyMessage(var Msg: TMsg; var Handled: Boolean); var    xi: IOleInPlaceActiveObject;    d: IDispatch; begin    handled:=(IsDialogMessage(Webbrowser_v11.Handle,msg)=true);    if (handled) and (not webbrowser_v11.Busy) then begin        if FOleInPlaceActiveObject=nil then begin // d:=webbrowser_v11.Application; (if using delphi3. for d4 use below            d:=webbrowser_v11.Application_;            if d<>nil then begin                d.QueryInterface(IOleInPlaceActiveObject,xi);                if xi<>nil then                    FOleInPlaceActiveObject:=xi;            end;        end;        if FOleInPlaceActiveObject<>nil then            FOleInPlaceActiveObject.TranslateAccelerator(msg);        end; end;


 and it should work
FYI: Phrase searches are enclosed in either single or double quotes
 
 
Originally created by
Tamarack Associates
Sat, 03 Dec 2022 23:25:34 UTC
Copyright © 2009-2022
HREF Tools Corp.