delphi - 在Web浏览器中设置行高-delphi

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;