KsDhtmlEdit怎么设置背景图片和背景底色(69分)

  • 主题发起人 主题发起人 LearningAug
  • 开始时间 开始时间
L

LearningAug

Unregistered / Unconfirmed
GUEST, unregistred user!
KsDhtmlEdit怎么设置背景图片和背景底色?我弄了很久,都不知道该怎么弄。
只知道可以设置已选文字的背景,但是不能设置整个KsDHtmlEdit的背景
 
帮忙顶。[:D]
 
大家都来帮帮忙啊!!
 
上面的问题我已经自己解决了,但是还想问一个问题:
我现在想在KsDhtmlEdit的[red]最后一行[/red]插入一张图片,请问应该怎么办?
用这个语句可以在[red]光标[/red]处插入:
KSEditX1.ExecCommand(DECMD_IMAGE, OLECMDEXECOPT_DONTPROMPTUSER,
OleVariant('图片路径'));
但是我现在只想在[red]最后一行[/red]插入,而且不需要我手动把鼠标光标移到最后一行,请问各位大虾,应该怎样处理这个问题?谢谢了
 
//添加背景图片
打开图片文件的窗体执行
if OpenDlgFile.Execute then

BGImageFile := OpenDlgFile.FileName;

//添加背景图片
if BGImageFile <> ''
then
(Edit.DOM.body as IHTMLBodyElement).background := BGImageFile;


//添加图片 dsDHTMLEDIT会自动打开一个图片选择窗体
Edit.CmdSet(IDM_IMAGE);
 
TO chizeng:
你的方法是正确的,之前我已经解决了,但是还是谢谢你!!!
我现在需要解决的是在最后一行插入图片的问题!
 
以下是VB的代码:
Dim oDoc As HTMLDocument
Dim oDoc As HTMLControlRange
Set oDoc = wb.Document
Set oControlRange = oDoc.body.createControlRange();

oControlRange.select();


我把它转换为Delphi语句:
var
image: IHTMLControlRange;

begin

image:=KSEditX1.DOM.body.CreateControlRange;

image.Select;
end;


编译的时候要报错:
Undeclared identifier:'CreateControlRange'
把我郁闷死了,各位大侠,帮帮忙啊,这是怎么回事呢?
是不是需要加什么头文件啊!
 
各位大侠都来帮帮忙吧
 
问题都放了这么多天了,难道DFW里面就没有人会吗??!!!!!
 
嘿嘿!!

我之前了解的一些关于ksDHTMLEDIT的一些内容的,也不知对不对,你将下面的代码内容改为下面的试一下,没试过的,想法是关于接口与类之间应用的区别的
var
image: IHTMLControlRange;

begin

image:=(KSEditX1.DOM as IHTMLDOcument2(这个对不对你最好看一下关于这个方面的内容的,是从那个接口来的)).body.CreateControlRange;

image.Select;
end;
 
后退
顶部