Clomosy | Forum : Buton üzerinden parametreli fonksiyon çağırmak https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 14:39:06 +0000 Tue, 11 Jun 2024 17:52:28 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=609 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Buton üzerinden parametreli fonksiyon çağırmak : Olumlu, teşekkürler. ]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=609&PID=879#879 Yazar: merenefe
Konu: 609
Gönderim Zamanı: 11 Haziran 2024 Saat 17:52

Olumlu, teşekkürler.]]> Tue, 11 Jun 2024 17:52:28 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=609&PID=879#879 <![CDATA[Buton üzerinden parametreli fonksiyon çağırmak : Merhaba Eren,Aşağıdaki örnekte...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=609&PID=867#867 Yazar: Atiker01
Konu: 609
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}');

 testBtn.Hint = 'Document '+IntToStr(i);
 MyForm.AddNewEvent(testBtn,tbeOnClick,'BtnOnClick');
 }

 MyForm.Run;
}

iyi çalışmalar.
]]> Tue, 11 Jun 2024 11:26:07 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=609&PID=867#867 <![CDATA[Buton üzerinden parametreli fonksiyon çağırmak : İyi günler,Aşağıdaki kod örneklerinde...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=609&PID=862#862 Yazar: merenefe
Konu: 609
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.
]]> Sun, 09 Jun 2024 19:34:14 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=609&PID=862#862