Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TWebBrowser [D5, D6, Win2k]

MetalFan © (2002-08-28 15:59:00)
Приветствую мастеров!!!
Трабла следующая:
на форме есть компонент 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;
форма появляется, но веббровсера на ней нет((((
Подскажите, может где чего не учел?

int64 (2002-08-29 11:12:00) [1]
Parent не так задал.
Вот правильно:
TControl(Browser).Parent := WebBrowserForm;

MetalFan (2002-08-29 10:41:00) [2]
даже еси width и height webbrowser"а выставлять, всеравно
не действует(((

MetalFan (2002-08-29 10:31:00) [3]
мдя... сложный наерно вопрос))))

MetalFan (2002-08-29 09:16:00) [4]
2Ketmar
Большой сенькс!!!
ВебБровсер появился))))
тока опять трабла,
Align:=AlClient;
не работает. не "раскидывается" на всю форму((((

Ketmar (2002-08-28 20:08:00) [5]
естественно. это я ошибся. для OLE и ActiveX"ов пишется так:
Browser.ParentWindow := WebBrowserForm.Handle;
пишется в любом месте после Create :-))

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

MetalFan (2002-08-28 17:37:00) [6]
не помогло, ругается что св-во readonly

Ketmar (2002-08-28 17:21:00) [7]
попробуйте добавить
Browser.Parent := WebBrowserForm;

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »