小弟在一窗口中放下一个Dbgrid和一个Webbrowser，运行过程中，只要在Webbrowser上点击过一次，然后点击Dbgrid，Dbgrid未能获得焦点，点击其他控件一切正常，请高手帮忙，已经搞了三天了，还没解决。 發表人 - zhuangquanmin 於 2005/05/21 22:53:21

會出現這個原因，主要是 TWebBrowser 的Bug 。 他多重繼承了TWinControl 卻不處理 TControl 類的 Focus。 導致 DBGrid 在判斷自己是否為 Focused 狀態出了問題。 瞭解了原因後，要解決就容易許多。 1. 修改 DBGrid 越過檢查 AcquireFocus 2. 在DocumentComplete事件重新確認Focus的處理。 procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin WebBrowser1.SetFocus; end; 使用這個方法，或需有時仍會。主要是時機的不同。 參考 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

谢谢大哥，我已经参照以下代码，重写一个新的控件解决了这个问题，但不知还有没有更好的办法。这段代码对跟我遇到同样问题的人有帮助。 unit FixedDBGrid; interface uses Winprocs,wintypes, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids; type TFixedDBGrid = class(TDBGrid) private { Private declarations } protected { Protected declarations } public { Public declarations } procedure WMRButtonDown(var Message: TWMRButtonDown); message WM_RBUTTONDOWN; procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN; published { Published declarations } end; procedure Register; implementation procedure TFixedDBGrid.WMRButtonDown(var Message: TWMRButtonDown); begin winprocs.SetFocus(handle); {remember that winprocs in Delphi 1 only!} inherited; end; procedure TFixedDBGrid.WMLButtonDown(var Message: TWMLButtonDown); begin winprocs.SetFocus(handle); {remember that winprocs in Delphi 1 only!} inherited; end; procedure Register; begin RegisterComponents('Samples', [TFixedDBGrid]); end; end.

這個問題板上已經有兩篇以上的文章了! 但好像都沒有人提出完整可行的源碼! unit FixedDBGrid; interface uses Winprocs,wintypes, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids; type TFixedDBGrid = class(TDBGrid) private { Private declarations } protected { Protected declarations } public { Public declarations } procedure WMRButtonDown(var Message: TWMRButtonDown); message WM_RBUTTONDOWN; procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN; published { Published declarations } end; procedure Register; implementation procedure TFixedDBGrid.WMRButtonDown(var Message: TWMRButtonDown); begin winprocs.SetFocus(handle); {remember that winprocs in Delphi 1 only!} inherited; end; procedure TFixedDBGrid.WMLButtonDown(var Message: TWMLButtonDown); begin winprocs.SetFocus(handle); {remember that winprocs in Delphi 1 only!} inherited; end; procedure Register; begin RegisterComponents('Samples', [TFixedDBGrid]); end; end. 僅供參考!

unit FixedDBGrid; interface uses Winprocs,wintypes, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids; type TFixedDBGrid = class(TDBGrid) private { Private declarations } protected { Protected declarations } public { Public declarations } procedure WMRButtonDown(var Message: TWMRButtonDown); message WM_RBUTTONDOWN; procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN; published { Published declarations } end; procedure Register; implementation procedure TFixedDBGrid.WMRButtonDown(var Message: TWMRButtonDown); begin winprocs.SetFocus(handle); {remember that winprocs in Delphi 1 only!} inherited; end; procedure TFixedDBGrid.WMLButtonDown(var Message: TWMLButtonDown); begin winprocs.SetFocus(handle); {remember that winprocs in Delphi 1 only!} inherited; end; procedure Register; begin RegisterComponents('Samples', [TFixedDBGrid]); end; end. 將上面源碼存成.pas，安裝Component。 加入元件之後,程式是將控件註冊在Samples,在Samples找到FixedDBGrid直接當成DBGrid使用即可! 應該可以，再不行的話建議用ExpressQuantumGrid.Suite控件，保證可以，但是編譯之後，執行檔大了三倍。