ShellListView mit Thumbnail Vorschau

[jbg]

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;