Einzelnen Beitrag anzeigen

jbg

Registriert seit: 12. Jun 2002
3.481 Beiträge
 
Delphi 10.1 Berlin Professional
 
#22
  Alt 18. Nov 2002, 21:38
Zitat von Christian Seehase:
Wieso funktioniert alLeft beim Webbrowser nicht richtig, wenn er so erzeugt wird?
Mit ParentWindow kann die VCL Ausrichtungsroutine nicht wirklich etwas anfangen. Sie benötigt ein TWinControl. Weil TWebBrowser (bzw. IWebBrowser) die Eigenschaft Parent neu deklariert, hat man auch keinen Zugriff auf die von TOleControl geerbte Eigenschaft Parent.

Folgender Code kommt auch ohne CreateWnd aus.
Delphi-Quellcode:
uses OleCtrls;

constructor TcsExplorerListView.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Width := 600;
  Height := 300;
  FListView := TListView.Create(Self);
  FListView.Parent := Self;
  FListView.Align := alClient;

  FWebBrowser := TWebbrowser.Create(Self);
  TOleControl(FWebBrowser).Parent := Self;
  FWebBrowser.Align := alLeft;
end;
  Mit Zitat antworten Zitat