Código Delphi [-] if TreeView1.Focused then BorraEnTreeView else if ListView1.Focused then BorraEnListView else ShowMessage('No hay nada seleccionado');
if TreeView1.Focused then BorraEnTreeView else if ListView1.Focused then BorraEnListView else ShowMessage('No hay nada seleccionado');