解决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;