Twwebbrowser "return" Problem

[rickleimbach]

Hi Leute !

Bin gerade dabei mir anfänglich einen eigenen Browser zu Programmieren (oder besser zusammenzubasteln) nun muss ich dazu sagen das ich ein totaler newb, und sobald ich vor einem Problem stehe sofort auf die Hilfe ander angewiesen bin

So hier mein Problem:

In der komponente twebbrowser funktioniert die "return" also die entertaste nicht sprich wenn ich in einem forum wie diesen einen bericht schreiben möchte kann ich keinen zeilenumbruch machen ich habe zwar schon die lösung des problems gefunden kann sie aber nicht ntzen :

http://www.swissdelphicenter.ch/de/showcode.php?id=1055

Unter dem gegebenen link ist ein code zur lösung des problems, nun hab ich das Problem, wie genau setze ich diesen code ein ? muss ich den irgendwo reinkopieren oder wie ?

Würde mich sehr über ne Antwort freuen mfg rickleimbach ach hier noch mein zurzeitiger code:

Delphi-Quellcode:

unit webbrows;

interface

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

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Edit1: TEdit;
    Button1: TButton;
    button2: TButton;
    Button3: TButton;
    Button4: TButton;
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Beenden1: TMenuItem;
    Hilfe1: TMenuItem;
    Version1: TMenuItem;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Beenden1Click(Sender: TObject);
    procedure Version1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses webbrowsform2;

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if
key=       #13//
then
webbrowser1.navigate(edit1.text)

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.GoBack;
end;

procedure TForm1.button2Click(Sender: TObject);
begin
Webbrowser1.GoForward;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
webbrowser1.Stop;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
webbrowser1.Refresh;
end;

procedure TForm1.Beenden1Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.Version1Click(Sender: TObject);
begin
form2.showmodal;
end;

end.