Buscar por:

Como apresentar o número da linha e coluna em um dbgrid

Código

{Podemos derivar uma classe a partir de TDBGrid e para utilizar este recurso!}

  implementation

  {$R *.DFM}

  type

  TMostraProp = class (TDBGrid);

  {evento OnColEnter do DBGrid}

  procedure TForm1.DBGrid1ColEnter(Sender: TObject);

  begin

    Caption := Format(‘Coluna: %2d; Row: %2d’,

    [TMostraProp(DbGrid1).Col, TMostraProp(DbGrid1).Row]);

  end;

  { evento OnDataChange do DataSource }

  procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);

  begin

    DBGrid1ColEnter(Sender);

  end;