TWebbrowser: Eingabe in "Edit"-Feld wird an TForm weitergegeben

[hoika]

Hallo,
ich habe jetzt Variante 2 genommen

Delphi-Quellcode:

uses
  Windows, Messages, Controls, StdCtrls, ExtCtrls, SHDocVw;

type
  TWebBrowser2 = class(TWebBrowser)
    procedure CNChar(var Message: TWMChar); message CN_CHAR;
  end;

...

procedure TWebBrowser2.CNChar(var Message: TWMChar);
begin
  Message.Result := 0;
end;

Beim dynamischen Erzeugen auf einem Panel muss man noch etwas rumtricksen

Delphi-Quellcode:

 
WebBrowser:= TWebBrowser2.Create(Panel1);
WebBrowser.Align:= alClient;
TWinControl(WebBrowser).Parent := Panel1;  // Parent is Read-Only

Aber ansonsten läuft es wie gewünscht.

Vielen Dank!