L LearningAug Unregistered / Unconfirmed GUEST, unregistred user! 2006-10-23 #1 KsDhtmlEdit怎么设置背景图片和背景底色?我弄了很久,都不知道该怎么弄。 只知道可以设置已选文字的背景,但是不能设置整个KsDHtmlEdit的背景
L LearningAug Unregistered / Unconfirmed GUEST, unregistred user! 2006-10-23 #5 上面的问题我已经自己解决了,但是还想问一个问题: 我现在想在KsDhtmlEdit的[red]最后一行[/red]插入一张图片,请问应该怎么办? 用这个语句可以在[red]光标[/red]处插入: KSEditX1.ExecCommand(DECMD_IMAGE, OLECMDEXECOPT_DONTPROMPTUSER, OleVariant('图片路径')); 但是我现在只想在[red]最后一行[/red]插入,而且不需要我手动把鼠标光标移到最后一行,请问各位大虾,应该怎样处理这个问题?谢谢了
上面的问题我已经自己解决了,但是还想问一个问题: 我现在想在KsDhtmlEdit的[red]最后一行[/red]插入一张图片,请问应该怎么办? 用这个语句可以在[red]光标[/red]处插入: KSEditX1.ExecCommand(DECMD_IMAGE, OLECMDEXECOPT_DONTPROMPTUSER, OleVariant('图片路径')); 但是我现在只想在[red]最后一行[/red]插入,而且不需要我手动把鼠标光标移到最后一行,请问各位大虾,应该怎样处理这个问题?谢谢了
C chizeng Unregistered / Unconfirmed GUEST, unregistred user! 2006-10-23 #6 //添加背景图片 打开图片文件的窗体执行 if OpenDlgFile.Execute then BGImageFile := OpenDlgFile.FileName; //添加背景图片 if BGImageFile <> '' then (Edit.DOM.body as IHTMLBodyElement).background := BGImageFile; //添加图片 dsDHTMLEDIT会自动打开一个图片选择窗体 Edit.CmdSet(IDM_IMAGE);
//添加背景图片 打开图片文件的窗体执行 if OpenDlgFile.Execute then BGImageFile := OpenDlgFile.FileName; //添加背景图片 if BGImageFile <> '' then (Edit.DOM.body as IHTMLBodyElement).background := BGImageFile; //添加图片 dsDHTMLEDIT会自动打开一个图片选择窗体 Edit.CmdSet(IDM_IMAGE);
L LearningAug Unregistered / Unconfirmed GUEST, unregistred user! 2006-10-24 #7 TO chizeng: 你的方法是正确的,之前我已经解决了,但是还是谢谢你!!! 我现在需要解决的是在最后一行插入图片的问题!
L LearningAug Unregistered / Unconfirmed GUEST, unregistred user! 2006-10-24 #8 以下是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' 把我郁闷死了,各位大侠,帮帮忙啊,这是怎么回事呢? 是不是需要加什么头文件啊!
以下是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' 把我郁闷死了,各位大侠,帮帮忙啊,这是怎么回事呢? 是不是需要加什么头文件啊!
L LearningAug Unregistered / Unconfirmed GUEST, unregistred user! 2006-10-30 #10 问题都放了这么多天了,难道DFW里面就没有人会吗??!!!!!
C chizeng Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-15 #11 嘿嘿!! 我之前了解的一些关于ksDHTMLEDIT的一些内容的,也不知对不对,你将下面的代码内容改为下面的试一下,没试过的,想法是关于接口与类之间应用的区别的 var image: IHTMLControlRange; begin image:=(KSEditX1.DOM as IHTMLDOcument2(这个对不对你最好看一下关于这个方面的内容的,是从那个接口来的)).body.CreateControlRange; image.Select; end;
嘿嘿!! 我之前了解的一些关于ksDHTMLEDIT的一些内容的,也不知对不对,你将下面的代码内容改为下面的试一下,没试过的,想法是关于接口与类之间应用的区别的 var image: IHTMLControlRange; begin image:=(KSEditX1.DOM as IHTMLDOcument2(这个对不对你最好看一下关于这个方面的内容的,是从那个接口来的)).body.CreateControlRange; image.Select; end;