TWebbrowser mit Border-Style wie ein TEdit

[Codehunter]

Oi, das kommt davon wenn man nen Bagger vorm Bürofenster hat und seine eigenen Gedanken nicht mehr hören kann

EDIT: Ich war jetzt mal frech und hab bei der CreateParams-Routine vom TCustomEdit abgeschrieben:

Delphi-Quellcode:

procedure TMyWebbrowser.CreateParams(var Params: TCreateParams);
const
  BorderStyles: array[TBorderStyle] of DWORD = (0, WS_BORDER);
begin
  inherited CreateParams(Params);
  CreateSubClass(Params, 'EDIT');
  with Params do
  begin
    Style := Style or (ES_AUTOHSCROLL or ES_AUTOVSCROLL) or BorderStyles[FBorderStyle];
    if NewStyleControls and Ctl3D and (FBorderStyle = bsSingle) then
    begin
      Style := Style and not WS_BORDER;
      ExStyle := ExStyle or WS_EX_CLIENTEDGE;
    end;
  end;
end;

Mal ganz davon abgesehen, dass wir da in der VCL auch noch das with-Statement sehen *gg*, es funktioniert nicht. Die CreateParams-Routine wird schlichtweg nicht aufgerufen.