DBGrid - saber a linha e coluna de uma dbgrid

Top  Previous  Next

// Para descobrir a linha e coluna da grid deve-se acessar o Row e Col do objeto

// DBGrid protegido:

 

type

  THackGrid = class(TDBGrid);

 

  TForm1 = class(TForm)

    Table1: TTable;

    ...

    DBGrid1: TDBGrid;

    ...

  private

    procedure AppIdle(Sender: TObject; var Done: Boolean);

  end;

 

// Idle é quando o App fica sem nada (parado) Podia ser num button click.

procedure TForm1.AppIdle(Sender: TObject; var Done: Boolean);

begin

  Label3.Caption := IntToStr(THackGrid(DBGrid1).Row);

  Label4.Caption := IntToStr(THackGrid(DBGrid1).Col);

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

  Application.OnIdle := AppIdle;

end;

 

///////////// PARA MOVER AS COLUNAS EM CODIGO:

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  THackDBGrid(DBGrid1).ColumnMoved(1,2);

end;