TWebbrower im Editmodus und Return-Taste

[Stefan Bodenburg]

Hallo zusammen,
ich habe folgendes Problem.
Ich nutze den TWebbrowser als WYSIWYG- Editor im Design-Mode.
So weit so gut, nur hab ich folgendes Problem:
Wenn man die Return- Taste drückt wird ein P-Tag eingefügt und nicht ein BR.
Ein BR-Tag bekommt man nur beim gleichzeitigen drücken von SHIFT/RETURN.

ich habe nun folgendes eingebaut, was allerdings nicht wirklich funktionier:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
  var
  pos: TPoint;
begin
  if (Msg.Message = WM_KEYDOWN) and
    (Msg.wParam = VK_RETURN) then
  begin
      if IsChild(Webbrowser1.Handle, Msg.hwnd) then
    begin
      Keybd_Event(vk_Shift,0,KEYEVENTF_EXTENDEDKEY,0);
      Keybd_Event(vk_RETURN,0,KEYEVENTF_EXTENDEDKEY,0);
      Keybd_Event(vk_RETURN,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
      Keybd_Event(vk_Shift,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
      Handled:=true;
    end;
  end;
end;

Die Funktion wird zwar ausgeführt, aber im WebBrowser passiert gar nichts.
Im Debug-Modus kommt beim "virtuellen Drücken" der Return-Taste nur das CPU-Fenster.
Irgendjemand vielleicht eine geschickte Lösung parat, oder auch nur nen Tip ?

Gruss

Stefan