Скачать: CL | DM;

TWebBrowser   Найти похожие ветки 

← →
MetalFan ©   (2002-08-28 15:59) [0]

Приветствую мастеров!!!
Трабла следующая:
на форме есть компонент WebBrowser
когда форма создается в IDE то веббровсер работает нормально
я пытаюсь сделать следующее:
procedure ShowBrowser;
var
WebBrowserForm:TForm;
Browser:TWebBrowser;
begin
WebBrowserForm:=TForm.Create(Application);
with WebBrowserForm do begin
Align:=alClient;
BorderIcons:=[biSystemMenu];
Caption:="Сводка Простоев за сутки";
Browser:=TWebBrowser.Create(self);
With browser do begin
Align:=AlClient;
Navigate(" http://www.yandex.ru");
end;
ShowModal;
end;
WebBrowserForm.Release;
end;
форма появляется, но веббровсера на ней нет((((
Подскажите, может где чего не учел?

---

← →
Ketmar ©   (2002-08-28 17:21) [1]

попробуйте добавить

Browser.Parent := WebBrowserForm;


Satanas Nobiscum! 28-Aug-XXXVII A.S.

---

← →
MetalFan ©   (2002-08-28 17:37) [2]

не помогло, ругается что св-во readonly

---

← →
Ketmar ©   (2002-08-28 20:08) [3]

естественно. это я ошибся. для OLE и ActiveX"ов пишется так:

Browser.ParentWindow := WebBrowserForm.Handle;

пишется в любом месте после Create :-))

Satanas Nobiscum! 28-Aug-XXXVII A.S.

---

← →
MetalFan ©   (2002-08-29 09:16) [4]

2Ketmar
Большой сенькс!!!
ВебБровсер появился))))
тока опять трабла,
Align:=AlClient;
не работает. не "раскидывается" на всю форму((((

---

← →
MetalFan ©   (2002-08-29 10:31) [5]

мдя... сложный наерно вопрос))))

---

← →
MetalFan ©   (2002-08-29 10:41) [6]

даже еси width и height webbrowser"а выставлять, всеравно
не действует(((

---

← →
int64 ©   (2002-08-29 11:12) [7]

Parent не так задал.
Вот правильно:
TControl(Browser).Parent := WebBrowserForm;

---

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

Скачать: CL | DM;



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