Wie Standardfont in DHTMLEdit ändern?

[Nuclear-Ping]

Hallo,

ich möchte die Standardfont des DHTML-Editors ändern, hatte jedoch bisher mit den im iNet bei MSDN gefundenen Lösungen keinen Erfolg: http://msdn.microsoft.com/workshop/b...sesettings.asp

Alles was ich erhalte, wenn ich das in Delphi probieren will, ist ein "Schwerwiegender Fehler" oder die Meldung "Versuch, ein Drop-Ziel zu verwerfen, was nicht registriert wurde".

Delphi-Quellcode:

procedure Tfrm_NewsData.Button1Click(Sender: TObject);
var
  v: OleVariant;
begin
  TVariantArg(v).vt      := VT_BSTR;
  TVariantArg(v).bstrVal := SysAllocString (',1,,7,0.255.0,,Comic Sans MS');
  NewsBody.ExecCommand (IDM_COMPOSESETTINGS,
                        MSOCMDEXECOPT_DONTPROMPTUSER,
                        v);
  SysFreeString (TVariantArg(v).bstrVal);
end;

Bin für alle Tips und Hilfen dankbar!

Grüße,
Mario