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

Вниз

Создание в run-time TWebBrowser   Найти похожие ветки 

← →
3asys   (2002-07-07 22:10) [0]

Добрый день,
как в run-time создать(и показать) TWebBrowser?
Обычным образом (по аналогии с TButton -)) создать его не удается.

С Уважением, 3asys

---

← →
Случайный прохожий   (2002-07-08 00:11) [1]

> Обычным образом (по аналогии с TButton -)) создать его не
> удается.

Это еще почему?

procedure TForm2.Button2Click(Sender: TObject);
begin
if WebBrowser = nil then
begin
WebBrowser:=TWebBrowser.Create(self);
WebBrowser.ParentWindow:=self.Handle;
WebBrowser.SetBounds(50,50,200,150);
end;
WebBrowser.Navigate(" http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1026065427&n=0");
end;


---

← →
3asys   (2002-07-08 10:15) [2]

Спасибо огромное.

С Уважением, 3asys

---

← →
Smok_er   (2002-07-08 15:03) [3]

Возвращаясь к вопросу...
Может кто-нибудт знает, как ее создать на активной странице PageControl"a и присвоить ей свойство Align alClient?
Первое вроде получается, а вот второе - никак :(

---

← →
int64   (2002-07-08 18:08) [4]

procedure TForm1.Button1Click(Sender: TObject);
var WB: TWebBrowser;
begin
WB:= TWebBrowser.Create(nil);
TControl(WB).Parent:= PageControl1.ActivePage;
WB.Align:= alClient;
end;

---

← →
Skier   (2002-07-08 18:09) [5]

>int64
А зачем этот кастинг TControl(WB).Parent:= ... ???

---

← →
Skier   (2002-07-08 18:13) [6]

>int64
Извини, моя ошибка, вопрос снят.

---

← →
Smok_er   (2002-07-08 18:29) [7]

Огромное спасибо!
Работает!

---

← →
Smok_er   (2002-07-09 15:30) [8]

Мастера, все классно, но сейчас столкнулся с необходимостью определения, на какой именно странице PageControl"a находится браузер для выполнения над ним каких-либо действий.
Приведу пример нерабочего кода, может кто-то поправит:


procedure TfrMain.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=13 then
with TWebBrowser(PageControl1.ActivePage.FindComponent("WB")) do
Navigate(Edit1.Text);
end;


---

← →
Skier   (2002-07-09 15:48) [9]

>Smok_er
Для того чтобы твой код искал WebBrowser тебе нужно
задавать его имя при создании

Т.е. (код int64) :



procedure TForm1.Button1Click(Sender: TObject);
var WB: TWebBrowser;
begin
WB:= TWebBrowser.Create(nil);
TControl(WB).Name:= "WB"; //имя WebBrowser-а (лучше проверить
//на уникальность)
TControl(WB).Parent:= PageControl1.ActivePage;
WB.Align:= alClient;
end;


---

← →
Skier   (2002-07-09 15:58) [10]

>Smok_er
Нет не то ! :)

Вот так :

Создание


procedure TfrMain.Button1Click(Sender: TObject);
var WB: TWebBrowser;
begin
WB:= TWebBrowser.Create(Self);
TControl(WB).Name:= "WB"; //имя WebBrowser-а (лучше проверить
//на уникальность)
TControl(WB).Parent:= PageControl1.ActivePage;
WB.Align:= alClient;
end;


Поиск :


procedure TfrMain.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=13 then
with TWebBrowser(Self.FindComponent("WB")) do
Navigate(Edit1.Text);
end;


---

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

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

Наверх

Память: 0.46 MB
Время: 0.004 c