Works with select text
procedure TDHTMLEdit.Insert_Anchor;
var
DOMInterface: IHTMLDocument2;
Range: IHTMLTxtRange;
begin
DomInterface := Document as IHTMLDocument2;
Range := DomInterface.selection.createRange as IHTMLTxtRange;
Range.pasteHTML('<A name="'+ Range.Text +'">'+ Range.Text +'</A>');
end;
Harley пишет в сообщении <#1WqqmLy...@uppssnewspub04.moswest.msn.net>
...
--
Rick Jesse (v-r...@microsoft.com)
DHTML Editing Component Development Team
Microsoft Corp.
Harley wrote in message <#1WqqmLy...@uppssnewspub04.moswest.msn.net>...