Question

如何样设置TDBGRID 当前行某字段的焦点

Answer 1

　　怎么样设置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;