HTML WYSIWYG Editor Komponenten für HTML-Emails gesucht

[Mirco]

Hallo
du brauchst dafür kein Delphi 6, Nur den TWebBrowser

Delphi-Quellcode:

uses
  MSHTML_TLB;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  CurrentWB: IWebBrowser;
begin
  CurrentWB := pDisp as IWebBrowser;
  (CurrentWB.Document as IHTMLDocument2).DesignMode := 'On';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://www.google.de')
end;

Und die Befehle:

Delphi-Quellcode:

HTMLDocument2Ifc := WebBrowser.Document as IHTMLDocument2;
HTMLDocument2Ifc.execCommand('FormatBlock', False, 'Überschrift 1'); 
HTMLDocument2Ifc.execCommand('FontSize', False, 7);
HTMLDocument2Ifc.execCommand('Bold', False, 0); 
HTMLDocument2Ifc.execCommand('ForeColor', False, '#0000FF');

Viele Grüsse
Mirco