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

Вниз

как сделать простейший веб браузер?   Найти похожие ветки 

← →
alx99 ©   (2003-02-28 03:03) [0]

сабж

---

← →
Jel ©   (2003-02-28 16:22) [1]

можно так.

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.

---

← →
alx99 ©   (2003-02-28 19:25) [2]

а как сначала загрузить html текст, его обработать и уже выдать на экран

---

← →
smok_er   (2003-03-01 12:25) [3]

APP рулит.

---

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

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

Наверх

Память: 0.47 MB
Время: 0.013 c