TEmbeddedWB: Eigenschaft silent ändern?

[Caps]

Hallöle,

ich habe eine Form, darauf den EmbeddedWB und möchte entweder im OI oder meinethalben im OnFormCreate die Eigenschaft "silent" des EmbeddedWB auf false stellen. Das geht in beiden Fällen nicht - die Einstellung bleibt true bzw. springt auf true zurück. Leider gibt es keine Hilfe zu der Komponente, und die Hinweise auf der Webseite bsalsa.com sagen nur:

Silent: Set Silent to true to prevent the Web browser control from displaying dialog boxes..
EmbeddedWB1.Silent := false;

Das klappt aber nicht. Was mache ich falsch?

lg Caps

[Steku]

hi,

ich kenne zwar die Komponente nicht, aber vielleicht hilft dir der Tip
hier weiter (andere Baustelle, VB, aber vielleicht funktioniert das auch
mit Delphi...)
http://www.vbforums.com/showthread.p...=1#post3450711
Gruß
Steku

[Caps]

Der Link ist leider nicht zutreffend. Ich will die JS-Fehler nicht ignorieren, ich will, dass die Komponente die Fehler anzeigt. Dafür muss ich aber die blöde Eigenschaft silent auf false stellen können.

Caps

Edit:
Anmerkung:
Man kann sich nicht mehr im bsalsa-Forum registrieren, diese Funktion wurde vom Administrator deaktiviert. Ist vielleicht doch keine so zukunftsträchtige Komponente, dieser EmbeddedWB... ?

[Steku]

Hmmm, wenn ich den Link richtig verstanden habe, starten die ein anderes Control / einen Timer
um die Einstellung des Browsercontrols zu übernehmen. Dann probier doch mal, ob das für deine
Zwecke funktioniert.
Ich verstehe den Link so, das du im OnFormCreate EmbeddedWB1.Silent := true; setzen müsstest,
und danach in einem TimerEvent EmbeddedWB1.Silent := false;
Ist doch einen Versuch wert...

Und soweit ich mitgekriegt habe, wird der EmbeddedWB nicht mehr weiterentwickelt...
Wenn es um WebbrowserControls geht, scheint es mir so dass es nicht viele Alternativen gibt,
hier im Forum liesst man immer wieder von CromiumEmbedded...
http://code.google.com/p/delphichromiumembedded/

Gruß
Steku

[Caps]

Nope. Leider nicht:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  OleCtrls, SHDocVw, Buttons, StdCtrls, SHDocVw_EWB, EwbCore, EmbeddedWB,
  ExtCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    EmbeddedWB1: TEmbeddedWB;
    Timer1: TTimer;
    procedure FormResize(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormResize(Sender: TObject);
begin
EmbeddedWB1.Width := Width-16;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
EmbeddedWB1.Go(String(Edit1.Text));
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = VK_RETURN then SpeedButton1.Click;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
EmbeddedWB1.Silent := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
EmbeddedWB1.silent := false;
if EmbeddedWB1.silent then showmessage('Das Ding wehrt sich.');
end;

end.

Jede Sekunde hat er mir ins Gesicht gesagt, dass er sich wehren würde. Nun ja, ein kurzer Test und fort mit dem Ding!
Cromium hab ich auch schonmal gehört bzw. gelesen, die Frage ist nur wie schwierig die Umstellung wird, wenn man die Komponente austauscht...

Beste Grüße
Caps