TWebBrowser - Control has no parent window [D7, XP]
ford © (2016-02-26 14:37:00)
Доброго время суток!
Создаю динамически объект 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:00) [1]
Нашел, где собака зарыта
http://delphimaster.net/view/1-1131126666
Спасибо Юрию Зотову :)
> Юрий Зотов © (2005-11-07 14:55) [14]
>
> Просто перенести создание закладок в CreateWnd, вот и
все.
>
Наверх 
ЧАТ |
Орешник |
|
