Скачать: CL | DM;
Чат на 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 вся ветка
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.015 c
gn
2003-09-05 06:11
2003.09.25
а ктонибудь своих подруг учит языкам
1-82219
First_May
2003-09-12 10:52
2003.09.25
EnumResourceNames...
14-82446
Karnegi.
2003-09-07 20:50
2003.09.25
Что изучают на профессии
8-82339
dedushka
2003-06-01 21:00
2003.09.25
AVI
3-82125
Alex_x
2003-09-04 11:29
2003.09.25
После отлавливания ошибки в запросе ADO глючит