本文整理自网络,侵删。
在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 xe [dcc32 fatal error] f2039 could not create output file 问题的解决
Delphi getforegroundwindow 与 getactivewindow 的区别
Delphi xe android 程序切换到后台及从后台切换到前台实现
更多相关阅读请进入《Delphi》频道 >>