Borrar Multiselect
procedure TFrmInCainv.dbNavDetalleClick(Sender: TObject;
Button: TNavigateBtn);
begin
inherited;
IF Button = nbDelete then
begin
if (DBGridDetalle.SelectedRows.Count > 0) then
with DBGridDetalle.DataSource.DataSet do
DBGridDetalle.SelectedRows.Delete
end;
end;
__________________
Una forma de alcanzar tus metas es ayudando a otros a alcanzar las suyas
|