おいで♪

４０前後で時間があいている人

各々 好きなことを書きませんか？




　　　　　　　　　　　　　　ほし


//rmt

AddText

var //AION ジケル RMT
tm : integer;
FDoc : IHTMLDocument2;
FBody : IHTMLElement;
begin
FDoc := (self.Document as IHTMLDocument2);
FBody := (FDoc.body as IHTMLElement);
tm := GetTickCount;

while not Assigned(FBody) do
begin
if (GetTickCount - tm) > 5000 then break;
sleep(100);
FDoc := (self.Document as IHTMLDocument2);
FBody := (FDoc.body as IHTMLElement);
end;

FCS.Enter;
try
FBody.insertAdjacentText('beforeEnd', ATextStr);
scrollBottom;
finally
FCS.Leave;
end;