TWebbrowser nur zum Anzeigen!?

[snapman]

Hallo,
gibt es eine Möglichkeit TWebbrowser so einzustellen, das er zwar Seiten auf Befehl von .Navigate('URL') anzeigt, aber der User selber nicht drin herum klicken/navigieren kann mittels links?

[teebee]

Du könntest TWebBrowser auf ein Panel legen, das Du dann disablest, Navigate funktioniert dann noch, aber klicken geht nicht mehr. Gilt leider auch für die Scrollleisten...

Gruß, teebee

[marabu]

Hallo snapman,

so geht es auch:

Delphi-Quellcode:

unit WebFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls;

type
  TWebForm = class(TForm)
    WebBrowser: TWebBrowser;
    ActionPanel: TPanel;
    UrlEdit: TEdit;
    LoadButton: TButton;
    procedure WebBrowserBeforeNavigate2(Sender: TObject;
      const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
      Headers: OleVariant; var Cancel: WordBool);
    procedure LoadButtonClick(Sender: TObject);
  end;

var
  WebForm: TWebForm;

implementation

{$R *.dfm}

procedure TWebForm.WebBrowserBeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  cancel := true;
end;

procedure TWebForm.LoadButtonClick(Sender: TObject);
begin
  with WebBrowser do begin
    OnBeforeNavigate2 := nil;
    Navigate(UrlEdit.Text);
    OnBeforeNavigate2 := WebBrowserBeforeNavigate2;
  end;
end;

end.

Grüße vom marabu

[snapman]

Danke funzt Prima

[toms]

Zitat von snapman:

Danke funzt Prima

Welche Variante denn?