HTML WYSIWYG Editor Komponenten für HTML-Emails gesucht

[Kostas]

Hallo zusammen,

ich habe eine Delphi 5 Anwendung in dieser ich ein Plan-Text Editor
eingebaut habe um einfache Email zu versenden. Realisiert habe ich es mit Indy 9.
Jetzt soll der Editor erweitert werden so das HTML-Email versendet werden sollen.
Der Editor sollte WYSIWYG können und (nur) Bold, Italic, Unterline und die Möglichkeit
ein Bild links zentriert oder rechts zu platzieren.

Ist Jemandem so eine Komponente bekannt?
Ich versuche gerade über ein Memo den Text zu markieren und HTML Tags hinzu zu fügen
das ist für einen normalen Anwender jedoch eine Zumutung. Deshalb WYSIWYG.

Gruß Kostas

[Mirco]

Nimm doch den Webbrowser:
http://www.dataweb.de/articles/mshtm...mlediting.html
Viele Grüsse
Mirco

[Kostas]

Hi Mirco,

dankeschön, vermutlich ist es das was ich suche.
Leider habe ich kei Delphi 6. Werde versuche es manuell zu konvertieren für Delphi5.
Hast Du die Möglichkeit ein Screenshot zu erstelln?

Gruß Kostas

[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

[Gollum]

Hallo,

wenn Du bereit bist, ein paar Euronen auszugeben, dann schau Dir einmal diese Komponente an: ProfDHTMLEdit