Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.24;
Скачать: CL | DM;

Вниз

Трабл!!! TWebBrowser (#bottom)   Найти похожие ветки 

 
oduvan   (2003-09-20 09:40) [0]

пытаюсь сделать чат на основе TWB

procedure TForm1.Button1Click(Sender: TObject);
var
tmp:string;
i:integer;
begin
for i:=0 to 50 do
begin
tmp:=extractfilepath(application.exename)+"2.html";
s.add(FormatDateTime("[hh:nn:ss]",now)+" <a href="#^oduvan">Oduvan</a>: Привет всем!<br>");
s.SaveToFile(tmp);
www.Navigate(tmp);
while www.Document = nil do
Application.ProcessMessages;
end;
end;


Но при добавлении многострочного текста, он отсается внизу
Как мне в этом компоненте переместится в самый низ документа?

пробывал так:


procedure TForm1.Button2Click(Sender: TObject);
var
doc:IHTMLDocument2;
begin

www.OleObject.document.location.href:="#bottom"; // первый случай

doc:=www.document as IHTMLDocument2;// второй случай, тот же, но по другому
doc.location.href:="#bottom";
end;


но не получается ((((

Как это реализовать?


 
Тих   (2003-09-21 02:01) [1]

document.scrollBy, scrollTo


 
oduvan   (2003-09-26 17:04) [2]

я это с использование JS реализовал всетаки) Всем спасибо.



Страницы: 1 вся ветка

Текущий архив: 2003.11.24;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
1-78906
Relaxxx
2003-11-12 17:09
2003.11.24
StringGrid, не люблю его страшно..........


3-78762
ZemA
2003-11-04 14:23
2003.11.24
Как на поле в таблице установить ограничение


1-78989
Denisiy
2003-11-14 13:43
2003.11.24
Как календарю присвоить сегодняшнюю дату?


1-79051
Maxximusss
2003-11-13 13:36
2003.11.24
Сообщение на экран


14-79156
Стьюдент
2003-10-31 11:52
2003.11.24
Программы будующего