diff --git a/components/geckoport/Components/GeckoBrowser.pas b/components/geckoport/Components/GeckoBrowser.pas index 94148a745..9a5e0bbde 100755 --- a/components/geckoport/Components/GeckoBrowser.pas +++ b/components/geckoport/Components/GeckoBrowser.pas @@ -236,10 +236,7 @@ type // TControl procedure Resize; override; - // TWinControl - procedure CreateWnd; override; - procedure DestroyWnd; override; - + procedure Loaded; override; protected property Chrome: TCustomGeckoBrowserChrome read FChrome write SetChrome; @@ -1050,14 +1047,9 @@ begin baseWin.SetPositionAndSize(rc.Left, rc.Top, rc.Right - rc.Left, rc.Bottom - rc.Top, False); end; -// TWinControl Œp³ -procedure TCustomGeckoBrowser.CreateWnd; +procedure TCustomGeckoBrowser.Loaded; begin - {$IFDEF DEBUG} - OutputDebugString('TGeckoBrowser.CreateWnd'); - {$ENDIF} - inherited CreateWnd; - + inherited Loaded; if not (csDesigning in ComponentState) then begin InitWebBrowser; @@ -1071,14 +1063,6 @@ begin end; end; -procedure TCustomGeckoBrowser.DestroyWnd; -begin - inherited DestroyWnd; - {$IFDEF DEBUG} - OutputDebugString('TGeckoBrowser.DestroyWnd'); - {$ENDIF} -end; - procedure TCustomGeckoBrowser.GoBack; begin try