Online
Registriert seit: 9. Feb 2006
Ort: Stolberg (Rhld)
4.166 Beiträge
Delphi 10.3 Rio
|
Re: TWebbrowser Gridshow und Snap-to-grid CtoPas
20. Apr 2006, 09:20

Zitat von marabu:
Hallo Frank,
meinst du das hier?
Delphi-Quellcode:
uses
{...} ActiveX;
type
TForm1 = class(TForm, IServiceProvider)
public
function QueryService( const rsid, iid: TGuid; out Obj): HResult; stdcall;
end;
Grüße vom marabu
Ja genau, aber diese QueryService wird bei mir NIE aufgerufen, genau das ist mein Problem!
Meine Test Unit:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw, ActiveX,MSHTML;
type
TForm1 = class(TForm,IServiceProvider)
WebBrowser1: TWebBrowser;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
function QueryService( const rsid, iid: TGuid; out Obj): HResult; stdcall;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Webbrowser1.Navigate(' http://www.delphipraxis.net');
end;
function TForm1.QueryService( const rsid, iid: TGuid; out Obj): HResult; stdcall;
begin
Caption := ' Query'; // Wird nie Aufgerufen
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
(Webbrowser1.Document as IHTMLDocument2).designMode := ' on';
end;
end.
Frank
|
|
Zitat
|