在dbgrid1cellclick事件尾部加入

formname.focuscontrol(webbrowser1);

例如下：

procedure form1.dbgrid1cellclick(column: tcolumn)
var
oldcur:tcursor;
begin
oldcur := screen.cursor;
screen.cursor :=crhourglass;

form1.focuscontrol(webbrowser1);
screen.cursor:=oldcur;

end;