Ver Mensaje Individual
  #4 (permalink)  
Antiguo 10/09/2009, 11:40
sol1521
 
Fecha de Ingreso: septiembre-2009
Mensajes: 1
Antigüedad: 15 años, 6 meses
Puntos: 0
Respuesta: Re: Eliminacion de Registros (BD) en Delphi

soy nueva en esto y quisiera saber porque no entiendo respecto a este codigo el VK_DELETE es este caso quien es ?? es el boton eliminar ??
con este codigo solo presiono el boton y se elimina la fila?? gracias



Cita:
Iniciado por Myakire Ver Mensaje
(Tomado de trucomania)



Colocar este código en el evento KeyDown de DBGrid:

Código:
if Key = VK_DELETE then  :neurotico
       if DBGrid1.SelectedRows.Count>0 then 
          if messagebox(self.Handle,pchar('Está seguro
 que desea eliminar los registros
 seleccionados?'),'Borrar',MB_ICONQUESTION +
 MB_YESNO)=IDYES then 
          with DBGrid1.DataSource.DataSet do 
             for i:=DBGrid1.SelectedRows.Count-1 downto 0 do {<----- Modificar aqui}
                begin 
                  GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
                  Delete;
                end; 
          end;