本文整理自网络,侵删。
在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;
相关阅读 >>
Delphi 打开win8及以上操作系统的系统已安装程序目录
更多相关阅读请进入《Delphi》频道 >>