在webbrowser -delphi中设置lineheight

Question

我想更改所选文字TWebbrowser的行高，但它不起作用。

以下代码适用于更改字体大小：

(WebBrowser1.Document as IHTMLDocument2).execCommand('fontsize', False, 1);

然而，使用以下代码更改行高失败：

(WebBrowser1.Document as IHTMLDocument2).execCommand('lineheight', False, 1);

我做错了什么？

Answer 1

没有可用于改变行高的命令常量（参见Command Identifiers）

虽然有点笨拙，但你可以这样做：

var
  Selection: IHTMLSelectionObject;
  Range :    IHTMLTxtRange;

begin
  Selection := (WebBrowser1.Document as IHTMLDocument2).Selection;
  if Assigned( Selection ) then
  begin
    Range := Selection.CreateRange as IHTMLTxtRange;
    Range.PasteHTML( '<span style="line-height:100px">' + Range.Text + '</span>' );
  end;
end;