ProListView'de Artı Butonuyla Yalnızca İlgili Ürün

   ProListView kullanarak bir liste halinde ürünler gösteriyorum. Her ürünün yanında artı (+) butonu var. Bu butona tıklandığında, yalnızca o ürüne ait miktar (label) artmalı, ancak şu anda tüm listedeki miktar artıyor. Bunu yalnızca ilgili satırdaki miktarı arttıracak şekilde nasıl çözebilirim? 
 void ArttirMiktar(Sender: TObject){
   lblMiktar.Text = IntToStr(StrToInt(lblMiktar.Text) + 1);
}

void AzaltMiktar;
{
  if (StrToInt(lblMiktar.Text) > 1)
  {
    lblMiktar.Text = IntToStr(StrToInt(lblMiktar.Text) - 1);
  }
}

void CreateData;
{
  Img = MyForm.AddNewProImage(DesignerPanel1, 'Img');
  Img.Align = AlCenter;
  Img.Margins.Right=190;
  Img.Height=100;
  Img.Width=100;
  Img.clProSettings.RoundHeight = 10;
  Img.clProSettings.RoundWidth = 10;
  Img.clProSettings.IsRound = True; 
  Img.clProSettings.PictureAutoFit = True;
  Img.SetclProSettings(Img.clProSettings); 
  DesignerPanel1.AddPanelObject(Img, clImage1);

  taskStokAciklama = MyForm.AddNewProLabel(DesignerPanel1, 'taskStokAciklama', ' ');
  taskStokAciklama.Align = AlCenter;
  taskStokAciklama.Margins.Bottom=20;
  taskStokAciklama.Margins.Left=80;
  taskStokAciklama.clProSettings.WordWrap=True;
  taskStokAciklama.clProSettings.FontColor = clAlphaColor.clHexToColor('#fff5e9');
  taskStokAciklama.clProSettings.FontSize = 20;
  DesignerPanel1.AddPanelObject(taskStokAciklama, clText1);

  taskStokAdi = MyForm.AddNewProLabel(DesignerPanel1, 'taskStokAdi', ' ');
  taskStokAdi.Align = AlCenter;
  taskStokAdi.Margins.Bottom=50;
  taskStokAdi.Margins.Left=80;
  taskStokAdi.clProSettings.FontColor = clAlphaColor.clHexToColor('#fff5e9');
  taskStokAdi.clProSettings.FontSize = 20;
  DesignerPanel1.AddPanelObject(taskStokAdi, clCaption);

  taskSatisFiyati = MyForm.AddNewProLabel(DesignerPanel1, 'taskSatisFiyati', ' ');
  taskSatisFiyati.Align = AlCenter;
  taskSatisFiyati.Margins.Top=70;
  taskSatisFiyati.Margins.Left=80;
  taskSatisFiyati.clProSettings.FontColor = clAlphaColor.clHexToColor('#fff5e9');
  taskSatisFiyati.clProSettings.FontSize = 20;
  DesignerPanel1.AddPanelObject(taskSatisFiyati, clText2);

  lblMiktar = MyForm.AddNewProLabel(DesignerPanel1, 'lblMiktar', '0');
  lblMiktar.Align = alCenter;
  lblMiktar.Margins.Left =270;
  lblMiktar.Width = 30;
  lblMiktar.Height = 30;

  btnArti = MyForm.AddNewProButton(DesignerPanel1, 'btnArti' , '+');
  btnArti.Align = alCenter;
  btnArti.Margins.Left = 250;
  btnArti.Margins.Bottom = 70;
  btnArti.Width = 30;
  btnArti.Height = 30;
  btnArti.clProSettings.FontSize = 14;
  btnArti.SetclProSettings(btnArti.clProSettings);
  MyForm.AddNewEvent(btnArti, tbeOnClick, 'ArttirMiktar' );

  btnEksi = MyForm.AddNewProButton(DesignerPanel1, 'btnEksi' , '-');
  btnEksi.Align = alCenter;
  btnEksi.Margins.Left = 250;
  btnEksi.Margins.Top = 50;
  btnEksi.Width = 30;
  btnEksi.Height = 30;
  btnEksi.clProSettings.FontSize = 14;
  btnEksi.SetclProSettings(btnEksi.clProSettings);
  MyForm.AddNewEvent(btnEksi, tbeOnClick, 'AzaltMiktar' );

}
void CreateListView
{
  PListView1 = MyForm.AddNewProListView(MyForm,'PListView1');
  PListView1.Align = AlCenter;
  PListView1.Margins.Top = 130;
  PListView1.Margins.Right = 20;
  PListView1.Margins.Left = 20;
  PListView1.Height=380;
  PListView1.Width=340;
  PListView1.clProSettings.ColCount = 1;
  PListView1.clProSettings.ItemHeight = 100;
  PListView1.clProSettings.ItemSpace = 10;
  PListView1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#e8d9cc');
  PListView1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#b8aa9c');
  PListView1.clProSettings.BorderWidth = 2;
  PListView1.clProSettings.RoundHeight = 5;
  PListView1.clProSettings.RoundWidth = 5;
  PListView1.SetclProSettings(PListView1.clProSettings);

}

void CreateDesignerPanel
{
  DesignerPanel1 = MyForm.AddNewProListViewDesignerPanel(PListView1, 'DesignerPanel1');
  DesignerPanel1.Align=AlCenter;
  DesignerPanel1.Margins.Top=100;
  DesignerPanel1.Height = 100;
  DesignerPanel1.Width = 150;
  DesignerPanel1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#fff5e9');
  DesignerPanel1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#fff5e9');
  DesignerPanel1.clProSettings.BorderWidth = 2;
  DesignerPanel1.clProSettings.RoundHeight = 20;
  DesignerPanel1.clProSettings.RoundWidth = 20;
  DesignerPanel1.SetclProSettings(DesignerPanel1.clProSettings);

  PListView1.SetDesignerPanel(DesignerPanel1);

}

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Yaren Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 07 Mart 2025 Durum: Aktif Değil Puanlar: 4	Mesaj Seçenekleri Yanıt Yaz Alıntı Yaren Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: ProListView'de Artı Butonuyla Yalnızca İlgili Ürün Gönderim Zamanı: 16 Saat 20 Dakika Önce Saat 17:25
	ProListView kullanarak bir liste halinde ürünler gösteriyorum. Her ürünün yanında artı (`+`) butonu var. Bu butona tıklandığında, yalnızca o ürüne ait miktar (label) artmalı, ancak şu anda tüm listedeki miktar artıyor. Bunu yalnızca ilgili satırdaki miktarı arttıracak şekilde nasıl çözebilirim? void ArttirMiktar(Sender: TObject) { lblMiktar.Text = IntToStr(StrToInt(lblMiktar.Text) + 1); } void AzaltMiktar; { if (StrToInt(lblMiktar.Text) > 1) { lblMiktar.Text = IntToStr(StrToInt(lblMiktar.Text) - 1); } } void CreateData; { Img = MyForm.AddNewProImage(DesignerPanel1, 'Img'); Img.Align = AlCenter; Img.Margins.Right=190; Img.Height=100; Img.Width=100; Img.clProSettings.RoundHeight = 10; Img.clProSettings.RoundWidth = 10; Img.clProSettings.IsRound = True; Img.clProSettings.PictureAutoFit = True; Img.SetclProSettings(Img.clProSettings); DesignerPanel1.AddPanelObject(Img, clImage1); taskStokAciklama = MyForm.AddNewProLabel(DesignerPanel1, 'taskStokAciklama', ' '); taskStokAciklama.Align = AlCenter; taskStokAciklama.Margins.Bottom=20; taskStokAciklama.Margins.Left=80; taskStokAciklama.clProSettings.WordWrap=True; taskStokAciklama.clProSettings.FontColor = clAlphaColor.clHexToColor('#fff5e9'); taskStokAciklama.clProSettings.FontSize = 20; DesignerPanel1.AddPanelObject(taskStokAciklama, clText1); taskStokAdi = MyForm.AddNewProLabel(DesignerPanel1, 'taskStokAdi', ' '); taskStokAdi.Align = AlCenter; taskStokAdi.Margins.Bottom=50; taskStokAdi.Margins.Left=80; taskStokAdi.clProSettings.FontColor = clAlphaColor.clHexToColor('#fff5e9'); taskStokAdi.clProSettings.FontSize = 20; DesignerPanel1.AddPanelObject(taskStokAdi, clCaption); taskSatisFiyati = MyForm.AddNewProLabel(DesignerPanel1, 'taskSatisFiyati', ' '); taskSatisFiyati.Align = AlCenter; taskSatisFiyati.Margins.Top=70; taskSatisFiyati.Margins.Left=80; taskSatisFiyati.clProSettings.FontColor = clAlphaColor.clHexToColor('#fff5e9'); taskSatisFiyati.clProSettings.FontSize = 20; DesignerPanel1.AddPanelObject(taskSatisFiyati, clText2); lblMiktar = MyForm.AddNewProLabel(DesignerPanel1, 'lblMiktar', '0'); lblMiktar.Align = alCenter; lblMiktar.Margins.Left =270; lblMiktar.Width = 30; lblMiktar.Height = 30; btnArti = MyForm.AddNewProButton(DesignerPanel1, 'btnArti' , '+'); btnArti.Align = alCenter; btnArti.Margins.Left = 250; btnArti.Margins.Bottom = 70; btnArti.Width = 30; btnArti.Height = 30; btnArti.clProSettings.FontSize = 14; btnArti.SetclProSettings(btnArti.clProSettings); MyForm.AddNewEvent(btnArti, tbeOnClick, 'ArttirMiktar' ); btnEksi = MyForm.AddNewProButton(DesignerPanel1, 'btnEksi' , '-'); btnEksi.Align = alCenter; btnEksi.Margins.Left = 250; btnEksi.Margins.Top = 50; btnEksi.Width = 30; btnEksi.Height = 30; btnEksi.clProSettings.FontSize = 14; btnEksi.SetclProSettings(btnEksi.clProSettings); MyForm.AddNewEvent(btnEksi, tbeOnClick, 'AzaltMiktar' ); } void CreateListView { PListView1 = MyForm.AddNewProListView(MyForm,'PListView1'); PListView1.Align = AlCenter; PListView1.Margins.Top = 130; PListView1.Margins.Right = 20; PListView1.Margins.Left = 20; PListView1.Height=380; PListView1.Width=340; PListView1.clProSettings.ColCount = 1; PListView1.clProSettings.ItemHeight = 100; PListView1.clProSettings.ItemSpace = 10; PListView1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#e8d9cc'); PListView1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#b8aa9c'); PListView1.clProSettings.BorderWidth = 2; PListView1.clProSettings.RoundHeight = 5; PListView1.clProSettings.RoundWidth = 5; PListView1.SetclProSettings(PListView1.clProSettings); } void CreateDesignerPanel { DesignerPanel1 = MyForm.AddNewProListViewDesignerPanel(PListView1, 'DesignerPanel1'); DesignerPanel1.Align=AlCenter; DesignerPanel1.Margins.Top=100; DesignerPanel1.Height = 100; DesignerPanel1.Width = 150; DesignerPanel1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#fff5e9'); DesignerPanel1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#fff5e9'); DesignerPanel1.clProSettings.BorderWidth = 2; DesignerPanel1.clProSettings.RoundHeight = 20; DesignerPanel1.clProSettings.RoundWidth = 20; DesignerPanel1.SetclProSettings(DesignerPanel1.clProSettings); PListView1.SetDesignerPanel(DesignerPanel1); }