Document Object Model

eto yzhe zdelal?
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=582

togda kod:)
y menja rabotaet!

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
OleCtrls, DHTMLEDLib_TLB, OleServer, StdCtrls, ComObj;

type
TForm1 = class(TForm)
DHTMLEdit1: TDHTMLEdit;
DEInsertTableParam1: TDEInsertTableParam;
Button1: TButton;
procedure Button1Click(Sender: TObject);

private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
insertTableParam: DEInsertTableParam;
ovInsertTableParam: OleVariant;
begin
insertTableParam := CreateComObject(Class_DEInsertTableParam) as IDEInsertTableParam;

insertTableParam.NumRows := 4;
insertTableParam.NumCols := 3;
insertTableParam.TableAttrs := 'width=100%';
insertTableParam.CellAttrs := ' bgColor="blue" noWrap';

ovInsertTableParam := OleVariant(insertTableParam);
DHTMLEdit1.ExecCommand(DECMD_INSERTTABLE, OLECMDEXECOPT_DODEFAULT, ovInsertTableParam);
end;
end.