4 respuestas en este tema

[lsedr]

Como desactivar el boto ''Borrar'' cuando en una tabla no hay ningun registro ??
LA BD es de SQL server 2005 express

[Delphius]

Hola Isedr,

¿Que tipo de botón es? ¿Es un TButton común o es el botón delete de un DBNavigator? Si te refieres a un DBNavigator supuestamente se desactivan/habilitan de forma automática dependiendo del cursor y/o de si el dataset está abierto o cerrado.

Si es botón normal basta con poner la propiedad Enabled en false. No recuerdo bien si los componentes ADO tienen el método IsEmpty, en código debería ser así:

delphi

Button1.Enabled := NOT ADOTable1.IsEmpty

;

IsEmpty es un método que regresa true si el dataset está vacio, false en caso contrario. Como en este caso deseamos poner en false cuando sea un resultado true, debemos negar la expresión, de allí el NOT.

Espero que se entienda.

Saludos,

[felipe]

Puede que te funcione con el RecordCount del DataSet, algo como:

MiBoton.Enabled := (MiDataSet.RecordCount <> 0)


Saludos!

[felipe]

O para el caso de ADO, sería mas sano la propuesta de Delphius.


Saludos!

[enecumene]

Pues..

delphi

if ADOTable1.isEmpty then
   btnBorrar.Enabled := False
else
  btnBorrar.Enabled := True;