TWebBrowser - Control has no parent window

← →
ford © (2016-02-26 14:37) [0]

Доброго время суток!
Создаю динамически объект TWebBrowser
procedure TForm2.Button1Click(Sender: TObject); var Web:TWEbBrowser; begin Web:=TWEbBrowser.Create(Panel1); Web.ParentWindow:=Panel1.Handle; Web.Align:=alClient; web.Navigate(ExtractFileDir(ParamStr(0))+"\prim.htm"); end;

Все работает, ну кроме выравнивания AlClient (но это ладно)

Попробовал создать компонент - наследник от TPanel. В его конструкторе пишу:
constructor TWebEditor.Create(AOwner: TComponent); begin inherited Create(AOwner); fBrowser:=TWebBrowser.Create(Self); fBrowser.OnDocumentComplete:=DocumentComplete; fBrowser.ParentWindow:=Self.Handle; fBrowser.Align:=alClient; BevelOuter:=bvNone; Caption:=""; end;

При установке компонента на форму Выдается сообщение что Control "" has no parent window

Плииз, подскажите, что не так? В рантайме, все создается, а в компоненте нет. Получается что при размещении панели на форме, она не имеет handle? И как быть?

← →
ford © (2016-02-26 14:58) [1]

Нашел, где собака зарыта

http://delphimaster.net/view/1-1131126666

Спасибо Юрию Зотову :)

> Юрий Зотов © (2005-11-07 14:55) [14]
>
> Просто перенести создание закладок в CreateWnd, вот и все.
>

TWebBrowser - Control has no parent window Найти похожие ветки