HTML WYSIWYG Editor

[Bummi]

Du könntest gegf. TWebBrowser dafür verwenden:

Delphi-Quellcode:

implementation
uses MSHTML;
{$R *.dfm}

var
  DocInterface:IHTMLDocument2;



procedure TMiniDemoForm.InitalisierenClick(Sender: TObject);
begin
  WebBrowser1.Navigate('file:///C:/temp/empty.html');
  DocInterface := (WebBrowser1.Document as IHTMLDocument2);
  DocInterface.DesignMode := 'On';
end;

procedure TMiniDemoForm.Selection_FettClick(Sender: TObject);
begin
  DocInterface.execCommand('Bold', false,0);
end;

procedure TMiniDemoForm.Schrift30Click(Sender: TObject);
begin
   DocInterface.execCommand('FontSize', false,30);
end;


procedure TMiniDemoForm.GetHTMLClick(Sender: TObject);
begin
  Showmessage(DocInterFace.body.InnerHTML)
end;

Für einen Zeilenumbruch benötigst Du CTRL+ENTER, da ENTER speichern möchte.