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;

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