Форум программистов [Powered by Invision Power Board]

Код


  FWebBrowser := TEXWebBrowser.Create(Self);
  Self.InsertControl(FWebBrowser);
  FWebBrowser.Align := alClient;

  FWebBrowser.OnDocumentComplete := WebBrowserDocumentComplete;
  FWebBrowser.OnNavigateComplete2 := WebBrowserNavigateComplete2;

Код


  Self.RemoveControl(FWebBrowser);
  FreeAndNil(FWebBrowser);

Код


function TCustomForm.SetFocusedControl(Control: TWinControl): Boolean;
var
  FocusHandle: HWnd;
  TempControl: TWinControl;
begin
  Result := False;
  Inc(FocusCount);
  if FDesigner = nil then
    if Control <> Self then
      FActiveControl := Control else
      FActiveControl := nil;
  Screen.FActiveControl := Control;
  Screen.FActiveCustomForm := Self;
  Screen.FCustomForms.Remove(Self);
  Screen.FCustomForms.Insert(0, Self);
  if Self is TForm then
  begin
    Screen.FActiveForm := TForm(Self);
    Screen.FForms.Remove(Self);
    Screen.FForms.Insert(0, Self);
  end
  else Screen.FActiveForm := nil;
  if not (csFocusing in Control.ControlState) then
  begin
    Control.ControlState := Control.ControlState + [csFocusing];
    try
      if Screen.FFocusedForm <> Self then
      begin
        if Screen.FFocusedForm <> nil then
        begin
          FocusHandle := Screen.FFocusedForm.Handle;
          Screen.FFocusedForm := nil;
          if not SendFocusMessage(FocusHandle, CM_DEACTIVATE) then Exit;
        end;
        Screen.FFocusedForm := Self;
        if not SendFocusMessage(Handle, CM_ACTIVATE) then Exit;
      end;
      if FFocusedControl = nil then FFocusedControl := Self;
      if FFocusedControl <> Control then
      begin
        while (FFocusedControl <> nil) and not
          FFocusedControl.ContainsControl(Control) do
        begin
          FocusHandle := FFocusedControl.Handle;
          FFocusedControl := FFocusedControl.Parent;
          if not SendFocusMessage(FocusHandle, CM_EXIT) then Exit;
        end;
        while FFocusedControl <> Control do
        begin
          TempControl := Control;
          while TempControl.Parent <> FFocusedControl do
            TempControl := TempControl.Parent;
          FFocusedControl := TempControl;
          if not SendFocusMessage(TempControl.Handle, CM_ENTER) then Exit;
        end;
        TempControl := Control.Parent;
        while TempControl <> nil do
        begin
          if TempControl is TScrollingWinControl then
            TScrollingWinControl(TempControl).AutoScrollInView(Control);
          TempControl := TempControl.Parent;
        end;
        Perform(CM_FOCUSCHANGED, 0, Longint(Control));
        if (FActiveOleControl <> nil) and (FActiveOleControl <> Control) then
          FActiveOleControl.Perform(CM_UIDEACTIVATE, 0, 0);  //AV <------
      end;
    finally
      Control.ControlState := Control.ControlState - [csFocusing];
    end;
    Screen.UpdateLastActive;
    Result := True;
  end;
end;

Цитата(Rennigth @ 16.2.2006, 16:42

)

TEXWebBrowser

Цитата(December @ 16.2.2006, 18:55

)

Это твой класс?

Цитата(December @ 16.2.2006, 18:55

)

Может, ты в процессе работы где-нить меняешь парент (или парент парента) контрола, например, с помощью InsertControl?

Код


function CreateWBObject: IWebBrowser2;
var
  lRes: IUnknown;
begin
  CoCreateInstance(CLASS_WebBrowser, nil,
    CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER, IDispatch, lRes);
  if Assigned(lRes) then
    lRes.QueryInterface(IID_IWebBrowser2, Result);
end;

procedure ReleaseWBObject(const AWebBrowser: IWebBrowser2);
begin

end;


{$R *.dfm}

{ TForm1 }

constructor TForm1.Create(AOwner: TComponent);
begin
  inherited;
  FWebBrowser := CreateWBObject;
end;

destructor TForm1.Destroy;
begin
  ReleaseWBObject(FWebBrowser);
  inherited;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  lUrl: OleVariant;
  X, Y: Integer;
begin
  X := 0;
  Y := 0;
  if Assigned(FWebBrowser) then
  begin
    lUrl := 'www.ya.ru';
    FWebBrowser.Visible := True;
    FWebBrowser.ClientToWindow(X, Y);
    FWebBrowser.Width := Width;
    FWebBrowser.Height := Height;
    FWebBrowser.Navigate(lUrl, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  end;
end;