---------------------------
Debugger Exception Notification
---------------------------
Project Jukebox.exe raised exception class EAccessViolation with message 'Access violation at address 4DB1C078 in module 'Midas.dll'. Read of address 00000346'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
Los únicos cambios que he hecho es agregar estos codes:
{*** Evento OnMouseDown del Grid ***} procedure TForm1.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button = mbRight then begin if cdsCanciones.IsEmpty then begin Borrardelabiblioteca1.Enabled := False; Borrardelsistema1.Enabled := False; ocarCancin1.Enabled := False; AgregaralalistadeReproduccin1.Enabled := False; end else begin Borrardelabiblioteca1.Enabled := True; Borrardelsistema1.Enabled := True; ocarCancin1.Enabled := True; AgregaralalistadeReproduccin1.Enabled := True; end; // Segundo if end; // Primer if end; {*** Evento OnClick de un Item de un Menú PopUp asociado al Grid ***} procedure TForm1.Borrardelabiblioteca1Click(Sender: TObject); begin if cdsCanciones.IsEmpty then begin //No hacemos nada aquí end else begin //de lo contrario lo borramos de la biblioteca cdsCanciones.Delete; cdsCanciones.ApplyUpdates(-1); end; end;
Saludos.