Colocando uma barra de progresso para o batchmove

1 - No form, coloque um componente TDataSource.
2 - Na propriedade DataSet do TDataSource inserido, coloque a tabela de origem, ou seja, "DataSource1.DataSet:=BatchMove1.Source;"
3 - Utilize o evento OnChangeData do TDataSource p/ acompanhar o processo de cópia.
Lembre-se que antes disso você deverá utilizar a propriedate RecordCount da tabela de origem para saber o total de registros que serão copiados.
Lembre-se também que a cada registro lido, o evento OnChangeData é chamado, portanto, é através desse evento que você poderá acompanhar o

processo de cópia, e por exemplo, atualizar uma barra de porcentagem. 

Nenhum comentário:

Postar um comentário