Código
Table1.edit;
//Se o registro já estiver bloqueado, ocorrerá um erro, então você deve fazer o seguinte :
try { para verificar o erro }
Table1.edit;
exception on TDBEngineError do { o erro..}
MensageDlg('Registro ja esta sendo usado...!',mtInformation,[ mbOk ],0 );
end;
//Nao use o DBNavigator
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009