给的demo执行后，鼠标点到左边的Edit1,然后，你再点击Form2的DBGrid，就再也不能让DBGrid获得焦点了，除非再点到Form2的Edit1,才能再回到DBGrid http://delphi.ktop.com.tw/topic.php?TOPIC_ID=41949     久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听

------
江上何人初见月，江月何年初照人

http://community.borland.com/article/0,1410,16637,00.html So....

unit Unit2;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DB, DBTables, DBGrids;    type
  TDBGrid = class(DBGrids.TDBGrid)
  private
    procedure WMRButtonDown(var Message: TWMRButtonDown); message WM_RBUTTONDOWN;
    procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;
  end;      TForm2 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form2: TForm2;    implementation    {$R *.dfm}    procedure TDBGrid.WMLButtonDown(var Message: TWMLButtonDown);
begin
  Windows.SetFocus(handle);
  inherited;
end;    procedure TDBGrid.WMRButtonDown(var Message: TWMRButtonDown);
begin
  Windows.SetFocus(handle);
  inherited;
end;    end.

多谢，问题解决了。 但此bug在Delphi1就有了，为何Borland直到delphi7都还没有直接修改它的TDBGrid呢？     久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听

------
江上何人初见月，江月何年初照人

Only Borland knows