点击DBGRID后用WEBBROWSER显示数据库里的TEXT，但是WEBBROWSER得到焦点后（点击内容或拖动滚动条）DBGRID就得不到焦点了，不知为什么

点击DBGRID后用WEBBROWSER显示数据库里的TEXT，但是WEBBROWSER得到焦点后（点击内容或拖动滚动条）DBGRID就得不到焦点了，不知为什么？(50分)<br />如题

我也碰到过，应该是你用了第三方的控件问题
以前我用了themeengine 控件写程序也这样， 后来用delphi标准控件就没这个问题了

我好象没有装任何第三方控件

用TAB可以回到DBGRID上，或者先点击到EDIT上，然后就可以了

click 以后加上这句
frmMain.FocusControl(EmbeddedWB1);
frmMain 主窗体名字
EmbeddedWB1为Twebrower

谢谢楼上，但是这样的话，焦点会跳，他们编的离线浏览器没有这样处理的

什么跳，没这个问题，关键该语句你用在哪个事件上。
Rich Explorer V3.1 简介 Build 0605

作者：左轻侯


sgMain:dbgrid

procedure TfrmMain.sgMainSelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
var
ID:string;
begin
if ACol = 1 then
begin
ID := sgMain.Cells[0,aRow];
if ID <> '' then ShowRecord(strtoint(ID));
end;
end;

procedure TfrmMain.ShowRecord(ID:Integer);
var
i:integer;
QuesInfo:TQuesInfo;
begin
try
DM1.GetQuesContent(ID,QuesInfo);

sb1.Panels[0].Text:='正在更新视图……';

ShowHtml(IE,QuesInfo.Content);

with QuesInfo do
begin
lblTitle.Caption:= '来自' + from + '：' + subject;

LVInfo.Items.Clear;
LVInfoAdd('标题',subject);
LVInfoAdd('编号',ID);
LVInfoAdd('提问者',from);
LVInfoAdd('提问时间',RegdateTime);
LVInfoAdd('最后回复时间',datetime);
LVInfoAdd('分数',Points);
LVInfoAdd('状态',Status);
LVInfoAdd('所属类别',RoomName);

LVInfoAdd('阅读次数',GetTimes);
LVInfoAdd('回复次数',ReplyTimes);

end;

PCContent.ActivePageIndex := 0;
frmMain.FocusControl(IE);
finally
sb1.Panels[0].Text:='完成';
end;
end;

不知道ShowHtml(IE,QuesInfo.Content)的过程代码是怎么样的

点这里下载了
http://www.wushuang.net/