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!