Cita:
Empezado por duilioisola
Si el ListView se llama MiListView, debes poner el código para el borrado en el evento OnDeleteItem.
Qudaría más o menos así:
Código Delphi [-]
procedure TFMCarrito.MiListViewDeleteItem(Sender: TObject; AIndex: Integer);
var
Str:String;
begin
for var I:integer := 0 to (MiListView.Items[AIndex].Objects.Count-1) do
if (MiListView.Items[AIndex].Objects[i] is TListItemText) then
Str := TListItemText(MiListView.Items[AIndex].Objects[i]).Text;
Label21.Text := (Str);
end;
|
Gracias amigos, En efecto esta opción resolvió el problema. la recomendación que le seguía a esta no la he probado y como ya está funcionando no considere prudente probar la otra opción. de igual forma agradezco a todos.