Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Текущая строка и поле в TDBGrid

01.01.2007
unit dbcolform;
 
interface
 
uses
 
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 
StdCtrls, Grids, DBGrids, DB, DBTables;
 
type
  TForm1
= class(TForm)
    Table1
: TTable;
    DataSource1
: TDataSource;
    DBGrid1
: TDBGrid;
    Label1
: TLabel;
    procedure DBGrid1ColEnter
(Sender: TObject);
    procedure DataSource1DataChange
(Sender: TObject; Field: TField);
 
private
   
{ Private declarations }
 
public
   
{ Public declarations }
 
end;
 
var
  Form1
: TForm1;
 
implementation
 
{$R *.DFM}
 
type
 
TFake = class (TDBGrid);
 
procedure TForm1
.DBGrid1ColEnter(Sender: TObject);
begin
  Label1
.Caption := Format (
   
'Column: %2d; Row: %2d',
   
[TFake (DbGrid1).Col,
   
TFake (DbGrid1).Row]);
end;
 
procedure TForm1
.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  DBGrid1ColEnter
(sender);
end;
 
end.

Взято с https://delphiworld.narod.ru