关于DBGrid中行和列的问题:

[zsjzwj]

我想在状态栏中动态显示DBGrid中的当前行和列,请问如何实现?

[Niuniu2003]

你用下面的保你没错，我测试过的。
type
TGrid = class(TDBGrid);

procedure TForm1.DBGrid1Enter(Sender: TObject);
var
I,J: Integer;
begin
I:= TGrid(DBGrid1).Row;
J:= TGrid(DBGrid1).col;
end;

[visli]

procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
i, j: integer; //行号 列号
begin
i := inttostr(table1.RecNo);
j := inttostr(column.id); //或是index
end;

[visli]

procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
i, j: integer; //行号 列号
begin
i := inttostr(table1.RecNo);
j := inttostr(column.id); //或是index
end;

[IwantFlay]

procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
intCol, intRow: integer; //行号 列号
begin
intRow :=GBGrid1.DataSource.DataSet.Recno;
intcol ;=DBGrid1.Col;
end;

[zhudongpo]

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
i, j: integer; //行号 列号
begin
i := inttostr(table1.RecNo);
j := inttostr(column.index);
end;

[Niuniu2003]

type
TGrid = class(TDBGrid);

procedure TForm1.DBGrid1Enter(Sender: TObject);
var
I,J: Integer;
begin
I:= TGrid(DBGrid1).Row;
J:= TGrid(DBGrid1).col;
end;

[zsjzwj]

我使用
procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
intCol, intRow: integer; //行号 列号
begin
intRow :=GBGrid1.DataSource.DataSet.Recno;
intcol ;=DBGrid1.Col;
end;

但行有了,却在intcol:=DBGrid1.Col; 出现编译错误! 如何解决?

[zsjzwj]

to Niuniu2003(牛牛) :

不用不行呀!

在 TGrid = class(TDBGrid); 编译通不过呀!

[frogshero]

TGrid = class(TDBGrid); 你放哪了?

[zsjzwj]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
TGrid = class(TDBGrid)
private
{ Private declarations }
public
{ Public declarations }
end;

[frogshero]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TGrid = class(TDBGrid) <---ok
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

[frogshero]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TGrid = class(TDBGrid); <---ok
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

[Niuniu2003]

注意：TGrid = class(TDBGrid);的位置; 同时在uses下引用Grids, DBGrids;
例如：

unit Unit1;

interface

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

type
TGrid = class(TDBGrid);
TForm1 = class(TForm)
DBGrid1: TDBGrid;
procedure DBGrid1ColEnter(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DBGrid1ColEnter(Sender: TObject);
var
I,J: Integer;
begin
I:= TGrid(DBGrid1).Row;
J:= TGrid(DBGrid1).col;

end;

end.