Clomosy | Forum : Buton İçindeki Label https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 11:24:31 +0000 Fri, 10 May 2024 20:22:17 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=591 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Buton İçindeki Label : En son yazmış olduğum sorunun...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=591&PID=804#804 Yazar: emre.gungor01
Konu: 591
Gönderim Zamanı: 10 Mayıs 2024 Saat 20:22

En son yazmış olduğum sorunun cevabı aslında iç içe if-else yapısı imiş halletmiş oldum.]]> Fri, 10 May 2024 20:22:17 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=591&PID=804#804 <![CDATA[Buton İçindeki Label : Tamam bunu yaptım her tıkladığımda...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=591&PID=803#803 Yazar: emre.gungor01
Konu: 591
Gönderim Zamanı: 10 Mayıs 2024 Saat 19:56

Tamam bunu yaptım her tıkladığımda 1 1 artarak yazdırıyorum fakat 25. sayıya geldiğimde durmasını istiyorum bunu görmek içinde ekranda showmessage la yazdıracağım. if-else-Else if yapısını kullandım fakat anlamadım.

Kodlar;

void zamanlayici;
{
  if(sayac == sayac)
  {
  sayac = sayac + 1;
  Zaman.Enabled = False;
  btn1.Text = IntToStr(sayac);
  }
  else if(sayac == 25)
  {
  ShowMessage('Süre doldu!');
  
  }
  else
  {
  btn1.Text = IntToStr(sayac);
  sayac = sayac + 1;
  }
}
]]> Fri, 10 May 2024 19:56:44 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=591&PID=803#803 <![CDATA[Buton İçindeki Label : Merhaba Emre,Bunun için zamanlayıcı...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=591&PID=802#802 Yazar: Atiker01
Konu: 591
Gönderim Zamanı: 10 Mayıs 2024 Saat 18:34

Merhaba Emre,
Bunun için zamanlayıcı (TclTimer) kullanmalısın. Uygulama içerisinde saniyede bir örnekteki Btnsayi adlı void'e gitmeli ve o kısımda istediğin yapıya göre mantığı değiştirebilirsin.
]]> Fri, 10 May 2024 18:34:56 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=591&PID=802#802 <![CDATA[Buton İçindeki Label : Bu sefer denediğimde içindeki...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=591&PID=801#801 Yazar: emre.gungor01
Konu: 591
Gönderim Zamanı: 10 Mayıs 2024 Saat 18:29

Bu sefer denediğimde içindeki labelda yazan sayı normalde her bastığımda artması lazımken şuanda artmıyor, dögülerden yapmayı denedim fakat olmadı önceki yaptığımda Showmessage demiştim ve her bastığımda gösteriyordu ekranda. Bunun nedeni nedir, nasıl yapabilirim?]]> Fri, 10 May 2024 18:29:59 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=591&PID=801#801 <![CDATA[Buton İçindeki Label : Merhaba Emre,Kodunu inceledim....]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=591&PID=799#799 Yazar: Atiker01
Konu: 591
Gönderim Zamanı: 09 Mayıs 2024 Saat 10:16

Merhaba Emre,

Kodunu inceledim. Bir pro buton bileşeni oluşturup içerisine label bileşeni eklemeye çalışmışsın. Bu şekilde bir ekleme yapamazsın. Buton text özelliğine metnini yazabilirsin. Bu sebepten başka bir bileşene (label) ihtiyaç kalmıyor. Aşağıda kodlarını istediğin şekilde düzenleme yaparak paylaşıyorum.


Var
   AnaForm:TclForm;
   btn1 : TClProButton;
 
void Btnsayi;
 var
  sayac:Integer;
 {
  sayac=1;
  btn1.Text = IntToStr(sayac);
 }
 
 {
   AnaForm = TclForm.Create(Self);
   AnaForm.SetFormColor('#52504d','',clGNone); 
   btn1 = AnaForm.AddNewProButton(AnaForm,'btn1','SAYAC');
   btn1.Align = alCenter;
   btn1.Width = 100;
   btn1.Height = 100;
   btn1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#a0a3b1');
   btn1.clProSettings.FontColor = clAlphaColor.clHexToColor('#050505');
   btn1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
   btn1.clProSettings.IsTransparent = False;
   btn1.clProSettings.FontSize = 12;
   btn1.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing
   btn1.clProSettings.FontHorzAlign = palCenter;
   btn1.clProSettings.IsFill = True; 
   btn1.clProSettings.IsRound = True;
   btn1.clProSettings.RoundHeight = 50;
   btn1.clProSettings.RoundWidth = 50;
   btn1.clProSettings.BorderWidth = 3;
   btn1.SetclProSettings(btn1.clProSettings);
   
   AnaForm.AddNewEvent(btn1,tbeOnClick,'Btnsayi');
   AnaForm.Run;
 
 }

Sorunun çözüme ulaşıp ulaşmadığı ile ilgili geri dönüşünü bekliyorum.
İyi çalışmalar diliyorum.

]]> Thu, 09 May 2024 10:16:00 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=591&PID=799#799 <![CDATA[Buton İçindeki Label : Merhabalar, Projemde ortada...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=591&PID=797#797 Yazar: emre.gungor01
Konu: 591
Gönderim Zamanı: 08 Mayıs 2024 Saat 22:46

Merhabalar,
          Projemde ortada bir yuvarlak olması gerekiyordu, yuvarlak ekledim tıklanma olayıda ekledim fakat ortasına yazı eklemem lazım ve bu yazı yuvarlakla birlikte hareket etmesi lazım yuvarlak sağa gittiğinde yazıda sağa gitmeli , sola gittiğinde yazıda sola gitmeli fakat yapamadım. Bu sefer buton ekleyeyim dedim tam yuvarlak olmadı aşağıdaki gibi oldu neyse olduğu kadar artık dedim devam ettim tıklanma olayı ekledim bu sefer yazıyı yine ekleyemedim. Nasıl yapabilirim?   Görsel;

Proje Kodları;

var
  AnaForm:TclForm;
  testbutton: TClProButton;
  testLabel: TclProLabel;
 
 void Btnsayi;
 var
  testLabel:Integer;
 {
  testLabel=1;
   while (testLabel <= 10)
   {
   ShowMessage('testLabel: ' + IntToStr(testLabel));
   testLabel = testLabel + 1;
   }
 }
 
{

  AnaForm = TCLForm.Create(Self); 
 
  AnaForm.SetFormColor('#52504d', '', clGNone); 
 
  testbutton = AnaForm.AddNewProButton(AnaForm,'testbutton', '');
  testLabel = AnaForm.AddNewLabel(testbutton, 'testLabel', '');
 
  clComponent.SetupComponent(testbutton, '{"Align": "Center", "Width": 250, "Height": 250,
  "BorderColor": "#ffffff","RoundHeight": 200, "RoundWidth": 200}'); 
 
  clComponent.SetupComponent(testLabel, '{"Align": "Center", "BorderColor": "#000000",
  "Width": 250, "Height": 250}');
 
  AnaForm.AddNewEvent(testbutton,tbeOnClick,'Btnsayi');
  AnaForm.AddNewEvent(testLabel,tbeOnClick,'');
  AnaForm.Run; 
}



]]> Wed, 08 May 2024 22:46:42 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=591&PID=797#797