i search in google and i found this very old code
Delphi-Quellcode:
procedure addChatText(WB: TEmbeddedWB;
const html:
string;add:integer = 0);
var
Range: IHTMLTxtRange;
mText :
string;
ext :
string;
sURL :
string;
i : Integer;
begin
if not joined
then Exit;
if Not Assigned(Wb.Document)
then exit;
Range := ((WB.Document
AS IHTMLDocument2).body
AS IHTMLBodyElement).createTextRange;
Range.Collapse(False) ;
if add = 1
then
begin
if ChatContent <>
nil then
begin
ChatContent.Add(
html+'
<BR>');
mText := ChatContent.Text;
end else
begin
mText :=
html+'
<BR>';
end;
end else begin
mText :=
html+'
<BR>';
end;
if ChatContent <>
nil then
begin
if ChatContent.Count > ChatContentTotal
then
begin
for i := 0
to 10
do
begin
ChatContent.Delete(0);
end;
end;
// while (ChatContent.Count) > ChatContentTotal do ChatContent.Delete(0);
end;
mText := Replace(mText,'
!res!url!',sURL);
mText := Replace(mText,'
£££',ext);
chatClear(WB,0);
Range.PasteHTML(mText);
// WB.Body.innerHTML := mText;
if OptionsIni.SoftScrolling = 0
then chatScroll(WB);
end;
and this how i find example to add text
addChatText(weblog,'<span class="Name">'+userSetting.Name+':</span> '+ strMsg,1);
i cant get this worked in delphi xe5
Thats why i thought i can do it like Tmemo
