![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как сделать простейший веб браузер?
alx99 © (2003-02-28 03:03:00)сабж
smok_er (2003-03-01 12:25:00) [1]APP рулит.
alx99 (2003-02-28 19:25:00) [2]а как сначала загрузить html текст, его обработать и уже выдать на экран
Jel (2003-02-28 16:22:00) [3]можно так.
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Edit1: TEdit;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then WebBrowser1.Navigate(Edit1.Text);
end;
end.