怎么样设置TDBGRID 当前行某字段的焦点？
怎么样设置TDBGRID 当前行某字段的焦点？

[解决办法]
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Grids, DBGrids, ADODB, StdCtrls;

type
TForm1 = class(TForm)
ADODataSet1: TADODataSet;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
ADODataSet1.FieldDefs.Add( 'F1 ', ftString, 20);
ADODataSet1.FieldDefs.Add( 'F2 ', ftString, 20);
ADODataSet1.CreateDataSet;
ADODataSet1.Open;
for i := 1 to 100 do
ADODataSet1.AppendRecord([inttostr(i), 'data ']);
ADODataSet1.First;
DBGrid1.Options := DBGrid1.Options + [dgAlwaysShowSelection];
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ADODataSet1.Locate( 'F1 ', '66 ', [loCaseInsensitive]);
DBGrid1.SelectedIndex := 1;
end;

end.


[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
begin
DBGrid1.Fields[5].FocusControl;// Fields[5]就是第6列
DBGrid1.SetFocus;
end;