解决delphi关于dbgrid和webbrowser的焦点冲突的问题

procedure TOpenCad.dbgrd1CellClick(Column: TColumn);
var
   str:string;
   oldcur:TCursor;
begin
       oldcur:=Screen.Cursor;//屏幕焦点
       Screen.Cursor:=crHourGlass;
       if wb1.Busy then
       wb1.Stop;
       str:=qryselect.FieldbyName('cadstr').AsString;
       wb1.Navigate(str);

        Self.FocusControl(wb1);
        Screen.Cursor:=oldcur;
end;