dhtmledit中如何加入背景色和背景图片？(100分)

....................

up

up

up

你還有玩沒完?
背景音樂

var
Element:IHTMLElement;

[brown] Element:=DHTMLEdit1.DOM.createElement('BGSOUND');
Element.setAttribute('src','C:/WINNT/Media/ding.wav',0);
Element.setAttribute('loop','-1',0);
DHTMLEdit1.DOM.body.innerHTML:=DHTMLEdit1.DOM.body.innerHTML +Element.outerHTML[/brown]

散分!!!!!!!!!!!!!!

你到底要在 DHTMLEdit 中添加，还是在 TWebbrowser 中添加。

不好意思
IHTMLElement说没定义，要在uses中加一个什么？

另外，横线不能加在当前位置吗？
回答完这次问题，马上给分，另加50分酬谢！

richard3000,到：http://www.delphibbs.com/delphibbs/dispq.asp?lid=1477515
去我的另一篇贴子，随便说句话，200分的大半给你！

uses MSHTML_TLB;

var
MousePos: TPOINT;
Element:IHTMLElement;
begin
GetCursorPos(MousePos);
Element:=DHTMLEdit1.DOM.elementFromPoint(MousePos.X,MousePos.Y);//光標所在位置的對象
Element.innerHTML:='<HR>'+Element.innerHTML+'<HR>';//前後各插入已橫線
end;

Element.innerHTML:='<HR>'+Element.innerHTML+'<HR>';//前後各插入已橫線
此句出错？

甚麼錯誤.

你用的是TDHTMLEdit?
TDHTMLEdit老實出錯,我開始也用它,後來換成TDHTMLSafe了.

错误信息：
Access violation address 0052277B in...... read of address 00000000

把你的form上放一個TDHTMLSafe試試.別的先別動!
msn: mailto:zhenhuazhao@hotmail.com

var
MousePos: TPOINT;
Element:IHTMLElement;
begin
GetCursorPos(MousePos);
Element:=DHTMLSafe1.DOM.elementFromPoint(MousePos.X,MousePos.Y);//光標所在位置的對象
Element.innerHTML:='<HR>'+Element.innerHTML+'<HR>';//前後各插入已橫線


错误一样

up

把你的代碼發過來 mailto:zhao-zhenhua@163.net

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, DHTMLEDLib_TLB,MSHTML_TLB, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
DHTMLEdit1: TDHTMLEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
MousePos: TPOINT;
Element:IHTMLElement;
begin
GetCursorPos(MousePos);
Element:=DHTMLEdit1.DOM.elementFromPoint(MousePos.X,MousePos.Y);//光標所在位置的對象
Element.innerHTML:='<HR>'+Element.innerHTML+'<HR>';//前後各插入已橫線
end;

end.

在關閉的時候
Exception EAccessViolatino in module DHTMLEd.OCX at 00007DCB.
Access violation at address 01337DCB in module 'DHTMLEd.OCX'.Read of adress 000000C8.


換成下面的沒有錯誤.
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, DHTMLEDLib_TLB,MSHTML_TLB, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
DHTMLEdit1: TDHTMLEdit;
[red]DHTMLSafe1: TDHTMLSafe;[/red]
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
MousePos: TPOINT;
Element:IHTMLElement;
begin
GetCursorPos(MousePos);
Element:=DHTMLEdit1.DOM.elementFromPoint(MousePos.X,MousePos.Y);//光標所在位置的對象
Element.innerHTML:='<HR>'+Element.innerHTML+'<HR>';//前後各插入已橫線
end;

end.