domingo, 1 de dezembro de 2013

Procedure para Mudar de coluna no Grid do Delphi



Procedure EnterGrid(Grid: TDBGrid ;DataSet: TDataSet) ;
Var i_Coluna: Integer ;
Begin
   i_coluna := Grid.SelectedIndex ;
   Inc(i_Coluna) ;

   If (i_Coluna = (Grid.Columns.Count))
      Then Begin
      DataSet.Next ;
      i_Coluna := 0 ;
   End ;

   Grid.SelectedIndex := i_Coluna ;
End ;

Nenhum comentário:

Postar um comentário