juniorpba Colaborador

Registrado: Quarta-Feira, 25 de Janeiro de 2012 Mensagens: 1690 Localização: Paranaiba - MS
|
Enviada: Ter Jan 11, 2022 10:59 am Assunto: Como zerar quantidade Listbox |
|
|
Bom dia, pessoal eu tenho um formulário de pedidos onde que a primeira Tab é de consulta de produtos onde tem uma lista de produtos na ListboxProdutos , e do lado tem sinal de + e um sinal - e entre eles tem uma label_quantidades.
Então pensa comigo toda vez que insiro a quantidade +1 ele preenche a labelquantidade como 1.
Nela é redirecionada os itens que eu escolhe para listboxItensPedidos, se eu escolhe
1 coca cola r$ 3,00 [ delete ] { tem uma botao de delete aqui }
Enquanto a quantidade da lista que eu inseri este produto ela continua como 1, quando eu clico em delete , ele sera a listboxItensPedidos mas não zera a quantidade do iten da ListboxProdutos .
Meu código de remoção do item é
Código: | procedure TF_Pedido.deletar(Sender: TObject);
var
Procura : Integer;
begin
ListBoxItem2 := TListBoxItem(FindItemParent(Sender as TFmxObject, TListBoxItem));
if Assigned(ListBoxItem2) then
if itens_pedido.Locate('CODIGO',ListBoxItem2.tag,[loCaseInsensitive]) then
LixtInTENS.Items.Delete(ListBoxItem2.Index);
itens_pedido.Delete;
end; |
Antes disso ele passa por aqui, pra depois cair na procedure do Objeto.
Código: | ListBoxItem2.StylesData['btndeletar2.OnClick'] := TValue.From<TNotifyEvent>(deletar);
ListBoxItem2.Tag := Itens_Pedido.FieldByName('CODIGO').AsInteger; |
_________________ "Conhece a teu inimigo e a ti mesmo e lutará 100 batalhas sem medo da derrota" |
|