本文整理自网络,侵删。
在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 任务栏显示进度条 createcomobject(clsid_taskbarlist) as itaskbarlist4
winapi 字符及字符串函数(10): lstrcpy - 复制字符串
用Delphi通过setupapi.dll列举和停用硬件设备
更多相关阅读请进入《Delphi》频道 >>