Buton üzerinden parametreli fonksiyon çağırmak

   İyi günler,
Aşağıdaki kod örneklerinde de görüldüğü üzere veritabanımdan gelen kullanıcıların her birisi için bir buton oluşturdum ve id değerlerine göre ilgili fonksiyona parametre göndererek işlem yapmak istiyorum. Fakat buton'un event kodlarında fonksiyon çalıştırabilirken parametreli fonksiyonu nasıl çalıştırabileceğimi (veya böyle bir özellik mevcut mu?) bilmiyorum. Bu durum için ,alternatif bir yol da mevcut ise, çözümünüzü bekliyorum. 

void TestFunc(idTest : Integer){
  ShowMessage(idTest);
}

void GetUsernamesToListView
{
  try
    selectQuery.SQL.Text = 'SELECT id,username from users';
    selectQuery.Open;
    if (selectQuery.Found)
    {
       while (not selectQuery.Eof)
       {
       btnUser = MyForm.AddNewButton(vertScrollBox,'btnUser'+selectQuery.FieldByName('id').AsString, selectQuery.FieldByName('username').AsString);
       MyForm.AddNewEvent(btnUser,tbeOnClick,'TestFunc(4)');
       btnUser.Align = alMostTop;
      selectQuery.Next;
       }
    }
    else
    {
      ShowMessage('Kayıt bulunamadı!');
    }
  finally
  }
}

Teşekkürler.

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
merenefe Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 08 Mayıs 2024 Durum: Aktif Değil Puanlar: 8	Mesaj Seçenekleri Yanıt Yaz Alıntı merenefe Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Buton üzerinden parametreli fonksiyon çağırmak Gönderim Zamanı: 09 Haziran 2024 Saat 19:34
	İyi günler, Aşağıdaki kod örneklerinde de görüldüğü üzere veritabanımdan gelen kullanıcıların her birisi için bir buton oluşturdum ve id değerlerine göre ilgili fonksiyona parametre göndererek işlem yapmak istiyorum. Fakat buton'un event kodlarında fonksiyon çalıştırabilirken parametreli fonksiyonu nasıl çalıştırabileceğimi (veya böyle bir özellik mevcut mu?) bilmiyorum. Bu durum için ,alternatif bir yol da mevcut ise, çözümünüzü bekliyorum. void TestFunc(idTest : Integer){ ShowMessage(idTest); } void GetUsernamesToListView { try selectQuery.SQL.Text = 'SELECT id,username from users'; selectQuery.Open; if (selectQuery.Found) { while (not selectQuery.Eof) { btnUser = MyForm.AddNewButton(vertScrollBox,'btnUser'+selectQuery.FieldByName('id').AsString, selectQuery.FieldByName('username').AsString); MyForm.AddNewEvent(btnUser,tbeOnClick,'TestFunc(4)'); btnUser.Align = alMostTop; selectQuery.Next; } } else { ShowMessage('Kayıt bulunamadı!'); } finally } } Teşekkürler.
	Mehmet Eren Efe

Atiker01 Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Forum Yöneticisi Kayıt Tarihi: 26 Temmuz 2023 Durum: Aktif Değil Puanlar: 99	Mesaj Seçenekleri Yanıt Yaz Alıntı Atiker01 Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 11 Haziran 2024 Saat 11:26
	Merhaba Eren, Aşağıdaki örnekte yer alan kodlamada butonlar dinamik oluşturuluyor. Butonların hint özelliğinin içerisine butonların id'si yazılıyor. Butonlara tek bir click void atanıyor. Void içerisinde hint değerine bakılarak hangi butonun tıklandığı belirleniyor. Var MyForm:TclForm; testPanel : TclProPanel; testBtn : TClProButton; i : Integer; void BtnOnClick; var clickedBtn:TClProButton; { clickedBtn = TClProButton(Myform.Clsender); ShowMessage(clickedBtn.Caption); //TClProButton(Myform.Clsender).Caption ShowMessage(clickedBtn.Hint); clickedBtn.Caption = '+++'; } { MyForm=TclForm.Create(self); testPanel=MyForm.AddNewProPanel(MyForm,'testPanel'); clComponent.SetupComponent(testPanel,'{"Align" : "Center","Width" :200, "Height":300,"RoundHeight":10,"RoundWidth":10,"BorderColor":"#3a32a8","BorderWidth":2}'); for (i = 0 to 4) { testBtn = MyForm.AddNewProButton(testPanel,'testBtn'+IntToStr(i+1),''); clComponent.SetupComponent(testBtn,'{"caption":"testBtn'+IntToStr(i+1)+'","Align" : "Top","MarginTop":5,"MarginLeft":5,"MarginRight":5, "Height":50}'); MyForm.SetImage(testBtn,'https://clomosy.com/demos/foodInformationBox.png'); testBtn.Hint = 'Document '+IntToStr(i); MyForm.AddNewEvent(testBtn,tbeOnClick,'BtnOnClick'); } MyForm.Run; } iyi çalışmalar.

merenefe Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 08 Mayıs 2024 Durum: Aktif Değil Puanlar: 8	Mesaj Seçenekleri Yanıt Yaz Alıntı merenefe Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 11 Haziran 2024 Saat 17:52
	Olumlu, teşekkürler.
	Mehmet Eren Efe