Форум: "Сети";
Текущий архив: 2003.09.25;
Скачать: [xml.tar.bz2];
Вниз
Чат на Dephi Найти похожие ветки
← →
rrew (2003-07-25 16:37) [0]Я хочу сделать свой чат, и мне надо чтобы текст добавлялся виде HTML кода в TWebBrowser, или в любой другой подобный компонент.
С компонентом TMemo я делал так:
Memo1.Lines.Add("сообщение");
Как это зделать в TWebBrowser или какой компонент мне надо
использовать, что бы в итоге изображалась HTML страница.
Это мне нало чтобы была возможность вставлять картинки в сообщение,
а также менять шрифт и цвет сообщения
← →
rrew (2003-07-26 02:40) [1]Что, неужеле никто не знает как это зделать?
← →
Rouse_ (2003-07-28 01:13) [2]Используйте TWebBrowser
Добавить текст можно так:
var
Document: IHtmlDocument2;
V: Variant;
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate("about:blank");
while WebBrowser1.Document = nil do
Application.ProcessMessages;
Document := WebBrowser1.Document as IHtmlDocument2;
V := VarArrayCreate([0, 0], varVariant);
V[0] :="<HTML><HEAD><TITLE></TITLE><style>a,a:visited{text-decoration: none;"+
"FONT-WEIGHT: bold; color: #003388;}a:hover{color: #0066FF}</style></HEAD>"+
( PSafeArray(TVarData(v)Используйте TWebBrowser
Добавить текст можно так:
var
Document: IHtmlDocument2;
V: Variant;
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate("about:blank");
while WebBrowser1.Document = nil do
Application.ProcessMessages;
Document := WebBrowser1.Document as IHtmlDocument2;
V := VarArrayCreate([0, 0], varVariant);
V[0] :="<HTML><HEAD><TITLE></TITLE><style>a,a:visited{text-decoration: none;"+
"FONT-WEIGHT: bold; color: #003388;}a:hover{color: #0066FF}</style></HEAD>"+
"<BODY><strong><font face="MS Sans Serif"><font size=1.5><font color="#FF00FF">Добро пожаловать</font></strong><br></BODY></HTML>";
Document.Writeln(PSafeArray(TVarData(v).VArray));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
V[0] :="<strong><a href="Новая строка"> Новая</a> срока</strong><br>";
Document.Writeln(PSafeArray(TVarData(v).VArray));
WebBrowser1.OleObject.Document.parentWindow.scroll(0,10000000);
end;
Картинку
begin
V[0] :="<IMG src="C:\Programm\Pictures\Smiles\icon_cry.gif">";
Document.Writeln(PSafeArray(TVarData(v).VArray));
WebBrowser1.OleObject.Document.parentWindow.scroll(0,10000000);
end;
Желаю успехов
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2003.09.25;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.012 c
