5 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
15 TPreviewBrowser = class(TWebBrowser)
18 procedure CreateParams(var Params: TCreateParams); override;
20 constructor Create(AOwner: TComponent); override;
21 destructor Destroy; override;
26 constructor TPreviewBrowser.Create(AOwner: TComponent);
32 inherited Create(AOwner);
33 // Style := GetWindowLong(Self.Handle, GWL_EXSTYLE);
34 // SetWindowLong(Self.Handle, GWL_EXSTYLE, Style or WS_EX_APPWINDOW);
37 destructor TPreviewBrowser.Destroy;
42 procedure TPreviewBrowser.CreateParams(var Params: TCreateParams);
45 // Params.Style := WS_POPUP or {or WS_BORDER};
46 // Params.WindowClass.Style := Params.WindowClass.Style or CS_SAVEBITS;
47 // Params.ExStyle := WS_EX_TOOLWINDOW;
48 // AddBiDiModeExStyle(Params.ExStyle);