Clomosy | Forum : Butonlara renk atama https://www.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Tue, 14 Apr 2026 20:13:33 +0000 Mon, 07 Aug 2023 11:53:03 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://www.clomosy.com.tr/RSS_post_feed.asp?TID=543 <![CDATA[Clomosy | Forum]]> https://www.clomosy.com.tr/forum_images/logo.png https://www.clomosy.com.tr/ <![CDATA[Butonlara renk atama : Hata çözüldü, ama yeni sürümler...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=543&PID=673#673 Yazar: Alforce
Konu: 543
Gönderim Zamanı: 07 Ağustos 2023 Saat 11:53

Hata çözüldü, ama yeni sürümler için hedefleniyor.

Şimdilik geçici bir çözüm olarak boş ve şeffaf bir png koyabilirsiniz.

Var
  MyForm:TclForm;
  btn1,btn2,btn3,btn4,btn5,btn6,btn7,btn8,btn9,btn10,btn11,btn12,btn13,btn14,btn15,btn16,btn17,btn18: TClProButton;
  myDeviceManager:TclDeviceManager;
  valueName:string;
  tahminsayifloat:Float;
  tahminsayi,girsayi,i,sira:Integer;
  ButtonZar:TclButton;
  testImg:TclImage; 

Procedure Temizle;
Var
  i: Integer;
  But: TClProButton;
Begin
  For i:= 1 to 18 do
  Begin
    But:= TClProButton(MyForm.clFindComponent('btn'+IntToStr(i)));
    
    MyForm.SetImage(But, 'https://i.hizliresim.com/d8cmc9f.png');
    But.enabled:= True;
  End;
End;

procedure c1;
begin
  Temizle;
  MyForm.SetImage(btn1,'https://i.hizliresim.com/lgz7547.jpg');
  btn1.enabled:= False;
end;

procedure c3;
begin
  Temizle;
  MyForm.SetImage(btn3,'https://i.hizliresim.com/o7bi7w1.png');
  btn3.enabled:= False;
end;

procedure c4;
begin
  Temizle;
  MyForm.SetImage(btn4,'https://i.hizliresim.com/4epyq3u.jpg');
  btn4.enabled:= False;
end;
procedure c2;
begin
  Temizle;
  MyForm.SetImage(btn2,'https://i.hizliresim.com/78q1glg.jpg');
  btn2.enabled:= False;
end;

procedure c13;
begin
  clComponent.SetupComponent(btn13,'{"BackgroundColor":"#ee0000"}');
  btn13.enabled:= False;
end;

procedure c8;
begin
  MyForm.SetImage(btn8,'https://i.hizliresim.com/b0idm02.jpg');
  btn8.enabled:= False;
end;

Procedure ButtonZarFonk;
begin
  tahminsayi:=clMath.generateRandom(1,6);
  
  if tahminsayi = 1 then
    MyForm.SetImage(testImg,'https://i.hizliresim.com/fro63f6.png')
  else if tahminsayi = 2 then 
    MyForm.SetImage(testImg,'https://i.hizliresim.com/egerynm.png')
  else if tahminsayi = 3 then
    MyForm.SetImage(testImg,'https://i.hizliresim.com/h73lzkk.png')
  else if tahminsayi = 4 then
    MyForm.SetImage(testImg,'https://i.hizliresim.com/lg7nxgm.png')
  else if tahminsayi = 5 then
    MyForm.SetImage(testImg,'https://i.hizliresim.com/fzz3x41.png')
  else if tahminsayi = 6 then
    MyForm.SetImage(testImg,'https://i.hizliresim.com/odqhg4l.png');
end;

begin 
  MyForm:=TclForm.Create(Self);
  myDeviceManager:=TclDeviceManager.Create;
  MyForm.SetFormBGImage('https://i.hizliresim.com/8lchnr7.jpeg');
  
  btn1:=MyForm.AddNewProButton(MyForm,'btn1','');
  clComponent.SetupComponent(btn1,'{"caption":"İNGİLTERE","MarginLeft":405,"MarginRight":90,"MarginBottom":62,"MarginTop":562,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
  btn2:=MyForm.AddNewProButton(MyForm,'btn2','');
  clComponent.SetupComponent(btn2,'{"caption":"İTALYA","MarginLeft":630,"MarginRight":2,"MarginBottom":-80,"MarginTop":250,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
  btn3:=MyForm.AddNewProButton(MyForm,'btn3','');
  clComponent.SetupComponent(btn3,'{"caption":"TÜRKİYE","MarginLeft":245,"MarginRight":240,"MarginBottom":62,"MarginTop":562,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
  btn4:=MyForm.AddNewProButton(MyForm,'btn4','');
  clComponent.SetupComponent(btn4,'{"caption":"ALMANYA","MarginLeft":5,"MarginRight":625,"MarginBottom":62,"MarginTop":562,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');
  btn5:=MyForm.AddNewProButton(MyForm,'btn5','');
  clComponent.SetupComponent(btn5,'{"caption":"KORE","MarginLeft":95,"MarginRight":405,"MarginBottom":62,"MarginTop":562,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
  btn6:=MyForm.AddNewProButton(MyForm,'btn6','');
  clComponent.SetupComponent(btn6,'{"caption":"FRANSA","MarginLeft":405,"MarginRight":90,"MarginBottom":600,"MarginTop":10,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
  btn7:=MyForm.AddNewProButton(MyForm,'btn7','');
  clComponent.SetupComponent(btn7,'{"caption":"BAŞLA","MarginLeft":630,"MarginRight":2,"MarginBottom":860,"MarginTop":430,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
  btn8:=MyForm.AddNewProButton(MyForm,'btn8','');
  clComponent.SetupComponent(btn8,'{"caption":"NORVEÇ","MarginLeft":245,"MarginRight":240,"MarginBottom":600,"MarginTop":10,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
  btn9:=MyForm.AddNewProButton(MyForm,'btn9','');
  clComponent.SetupComponent(btn9,'{"caption":"ABD","MarginLeft":5,"MarginRight":625,"MarginBottom":600,"MarginTop":10,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
  btn10:=MyForm.AddNewProButton(MyForm,'btn10','');
  clComponent.SetupComponent(btn10,'{"caption":"VİZE AL","MarginLeft":95,"MarginRight":405,"MarginBottom":600,"MarginTop":10,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
  btn11:=MyForm.AddNewProButton(MyForm,'btn11','');
  clComponent.SetupComponent(btn11,'{"caption":"RUSYA","MarginLeft":-70,"MarginRight":860,"MarginBottom":325,"MarginTop":95,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
  btn12:=MyForm.AddNewProButton(MyForm,'btn12','');
  clComponent.SetupComponent(btn12,'{"caption":"MISIR","MarginLeft":-70,"MarginRight":860,"MarginBottom":430,"MarginTop":15,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
  btn13:=MyForm.AddNewProButton(MyForm,'btn13','');
  clComponent.SetupComponent(btn13,'{"caption":"GÜMRÜK KAPISI","MarginLeft":-70,"MarginRight":860,"MarginBottom":220,"MarginTop":175,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
  btn14:=MyForm.AddNewProButton(MyForm,'btn14','');
  clComponent.SetupComponent(btn14,'{"caption":"UKRAYNA","MarginLeft":-70,"MarginRight":860,"MarginBottom":50,"MarginTop":190,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');
  btn15:=MyForm.AddNewProButton(MyForm,'btn15','');
  clComponent.SetupComponent(btn15,'{"caption":"KODES","MarginLeft":-70,"MarginRight":860,"MarginBottom":-80,"MarginTop":250,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');
  btn16:=MyForm.AddNewProButton(MyForm,'btn16','');
  clComponent.SetupComponent(btn16,'{"caption":"ÇİN","MarginLeft":630,"MarginRight":2,"MarginBottom":325,"MarginTop":95,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');
  btn17:=MyForm.AddNewProButton(MyForm,'btn17','');
  clComponent.SetupComponent(btn17,'{"caption":"ŞANS","MarginLeft":630,"MarginRight":2,"MarginBottom":50,"MarginTop":190,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');
  btn18:=MyForm.AddNewProButton(MyForm,'btn18','');
  clComponent.SetupComponent(btn18,'{"caption":"KANADA","MarginLeft":630,"MarginRight":2,"MarginBottom":220,"MarginTop":175,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');
  testImg:=MyForm.AddNewImage(MyForm,'testImg');
  testImg.Margins.Left:=850;
  testImg.Margins.Right:=-100;
  testImg.Margins.Top:=190;
  testImg.Margins.Bottom:=50;
  testImg.Width:=80;
  testImg.Height:=80;
  MyForm.SetImage(testImg,'https://i.hizliresim.com/fro63f6.png');
  ButtonZar:=MyForm.AddNewButton(MyForm,'ButtonZar','Zar At');
  ButtonZar.Margins.Left:=850;
  ButtonZar.Margins.Right:=-100;
  ButtonZar.Margins.Top:=270;
  ButtonZar.Margins.Bottom:=-10;
  ButtonZar.Width:=80;
  ButtonZar.Height:=40;
  MyForm.AddNewEvent(ButtonZar,tbeOnClick,'ButtonZarFonk'); 
  
  MyForm.AddNewEvent(btn13,tbeOnClick,'c13');
  MyForm.AddNewEvent(btn1,tbeOnClick,'c1');
  MyForm.AddNewEvent(btn3,tbeOnClick,'c3');
  MyForm.AddNewEvent(btn4,tbeOnClick,'c4');
  MyForm.AddNewEvent(btn8,tbeOnClick,'c8');
  
  MyForm.Run;
end;

Bu, umarım şimdilik işinizi görür.
]]> Mon, 07 Aug 2023 11:53:03 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=543&PID=673#673 <![CDATA[Butonlara renk atama : Merhaba, hata ile ilgili bir gelişme...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=543&PID=670#670 Yazar: halilselvitopu
Konu: 543
Gönderim Zamanı: 07 Ağustos 2023 Saat 10:05

Merhaba, hata ile ilgili bir gelişme var mı?]]> Mon, 07 Aug 2023 10:05:59 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=543&PID=670#670 <![CDATA[Butonlara renk atama : Kodda karşılaştığınız hatayı tespit...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=543&PID=663#663 Yazar: Alforce
Konu: 543
Gönderim Zamanı: 04 Ağustos 2023 Saat 14:16

Kodda karşılaştığınız hatayı tespit ettik, teşekkür ederiz.

Ar-ge ekibine ilettim kısa sürede cevap vericeklerdir.
]]> Fri, 04 Aug 2023 14:16:54 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=543&PID=663#663 <![CDATA[Butonlara renk atama : Var MyForm:TclForm;btn1,btn2,b...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=543&PID=661#661 Yazar: halilselvitopu
Konu: 543
Gönderim Zamanı: 04 Ağustos 2023 Saat 11:05

Var MyForm:TclForm;btn1,btn2,btn3,btn4,btn5,btn6,btn7,btn8,btn9,btn10,btn11,btn12,btn13,btn14,btn15,btn16,btn17,btn18: TClProButton;
myDeviceManager:TclDeviceManager;valueName:string;tahminsayifloat:Float;tahminsayi,girsayi,i,sira:Integer;ButtonZar:TclButton;testImg:TclImage; 

procedure c1;
begin
MyForm.SetImage(btn1,'https://i.hizliresim.com/lgz7547.jpg');
btn1.enabled:= False;

end;
procedure c3;
begin
MyForm.SetImage(btn3,'https://i.hizliresim.com/o7bi7w1.png');
btn3.enabled:= False;

end;
procedure c4;
begin
MyForm.SetImage(btn4,'https://i.hizliresim.com/4epyq3u.jpg');
end;
procedure c2;
begin
MyForm.SetImage(btn2,'https://i.hizliresim.com/78q1glg.jpg');
btn2.enabled:= False;
end;

procedure c13;
begin
clComponent.SetupComponent(btn13,'{"BackgroundColor":"#ee0000"}');
btn13.enabled:= False;
end;
procedure c8;
begin
MyForm.SetImage(btn8,'https://i.hizliresim.com/b0idm02.jpg');

btn8.enabled:= False;
end;



Procedure ZarGorsel(a:Integer)begin if a=1 then begin MyForm.SetImage(testImg,'https://i.hizliresim.com/fro63f6.png'); end;else if a = 2 then begin MyForm.SetImage(testImg,'https://i.hizliresim.com/egerynm.png');end;else if a = 3 then begin MyForm.SetImage(testImg,'https://i.hizliresim.com/h73lzkk.png');end;else if a = 4 then begin MyForm.SetImage(testImg,'https://i.hizliresim.com/lg7nxgm.png');end;else if a = 5 then begin MyForm.SetImage(testImg,'https://i.hizliresim.com/fzz3x41.png');end;else if a = 6 then begin MyForm.SetImage(testImg,'https://i.hizliresim.com/odqhg4l.png');end;end;Procedure ButtonZarFonk;begin
tahminsayi:=clMath.generateRandom(1,6);ZarGorsel(tahminsayi);end;begin MyForm:=TclForm.Create(Self);myDeviceManager:=TclDeviceManager.Create;MyForm.SetFormBGImage('https://i.hizliresim.com/8lchnr7.jpeg');
btn1:=MyForm.AddNewProButton(MyForm,'btn1','');clComponent.SetupComponent(btn1,'{"caption":"İNGİLTERE","MarginLeft":405,"MarginRight":90,"MarginBottom":62,"MarginTop":562,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
btn2:=MyForm.AddNewProButton(MyForm,'btn2','');clComponent.SetupComponent(btn2,'{"caption":"İTALYA","MarginLeft":630,"MarginRight":2,"MarginBottom":-80,"MarginTop":250,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
btn3:=MyForm.AddNewProButton(MyForm,'btn3','');clComponent.SetupComponent(btn3,'{"caption":"TÜRKİYE","MarginLeft":245,"MarginRight":240,"MarginBottom":62,"MarginTop":562,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
btn4:=MyForm.AddNewProButton(MyForm,'btn4','');clComponent.SetupComponent(btn4,'{"caption":"ALMANYA","MarginLeft":5,"MarginRight":625,"MarginBottom":62,"MarginTop":562,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');
btn5:=MyForm.AddNewProButton(MyForm,'btn5','');clComponent.SetupComponent(btn5,'{"caption":"KORE","MarginLeft":95,"MarginRight":405,"MarginBottom":62,"MarginTop":562,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
btn6:=MyForm.AddNewProButton(MyForm,'btn6','');clComponent.SetupComponent(btn6,'{"caption":"FRANSA","MarginLeft":405,"MarginRight":90,"MarginBottom":600,"MarginTop":10,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
btn7:=MyForm.AddNewProButton(MyForm,'btn7','');clComponent.SetupComponent(btn7,'{"caption":"BAŞLA","MarginLeft":630,"MarginRight":2,"MarginBottom":860,"MarginTop":430,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
btn8:=MyForm.AddNewProButton(MyForm,'btn8','');clComponent.SetupComponent(btn8,'{"caption":"NORVEÇ","MarginLeft":245,"MarginRight":240,"MarginBottom":600,"MarginTop":10,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
btn9:=MyForm.AddNewProButton(MyForm,'btn9','');clComponent.SetupComponent(btn9,'{"caption":"ABD","MarginLeft":5,"MarginRight":625,"MarginBottom":600,"MarginTop":10,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
btn10:=MyForm.AddNewProButton(MyForm,'btn10','');clComponent.SetupComponent(btn10,'{"caption":"VİZE AL","MarginLeft":95,"MarginRight":405,"MarginBottom":600,"MarginTop":10,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
btn11:=MyForm.AddNewProButton(MyForm,'btn11','');clComponent.SetupComponent(btn11,'{"caption":"RUSYA","MarginLeft":-70,"MarginRight":860,"MarginBottom":325,"MarginTop":95,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
btn12:=MyForm.AddNewProButton(MyForm,'btn12','');clComponent.SetupComponent(btn12,'{"caption":"MISIR","MarginLeft":-70,"MarginRight":860,"MarginBottom":430,"MarginTop":15,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
btn13:=MyForm.AddNewProButton(MyForm,'btn13','');clComponent.SetupComponent(btn13,'{"caption":"GÜMRÜK KAPISI","MarginLeft":-70,"MarginRight":860,"MarginBottom":220,"MarginTop":175,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}'); 
btn14:=MyForm.AddNewProButton(MyForm,'btn14','');clComponent.SetupComponent(btn14,'{"caption":"UKRAYNA","MarginLeft":-70,"MarginRight":860,"MarginBottom":50,"MarginTop":190,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');
btn15:=MyForm.AddNewProButton(MyForm,'btn15','');clComponent.SetupComponent(btn15,'{"caption":"KODES","MarginLeft":-70,"MarginRight":860,"MarginBottom":-80,"MarginTop":250,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');
btn16:=MyForm.AddNewProButton(MyForm,'btn16','');clComponent.SetupComponent(btn16,'{"caption":"ÇİN","MarginLeft":630,"MarginRight":2,"MarginBottom":325,"MarginTop":95,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');
btn17:=MyForm.AddNewProButton(MyForm,'btn17','');clComponent.SetupComponent(btn17,'{"caption":"ŞANS","MarginLeft":630,"MarginRight":2,"MarginBottom":50,"MarginTop":190,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');
btn18:=MyForm.AddNewProButton(MyForm,'btn18','');clComponent.SetupComponent(btn18,'{"caption":"KANADA","MarginLeft":630,"MarginRight":2,"MarginBottom":220,"MarginTop":175,"Width":148,"Height":85,"RoundHeight":2,"RoundWidth":2,"BorderColor":"#ee0000","BorderWidth":2}');
testImg:=MyForm.AddNewImage(MyForm,'testImg');testImg.Margins.Left:=850;testImg.Margins.Right:=-100;testImg.Margins.Top:=190;testImg.Margins.Bottom:=50;testImg.Width:=80;testImg.Height:=80;MyForm.SetImage(testImg,'https://i.hizliresim.com/fro63f6.png');
ButtonZar:=MyForm.AddNewButton(MyForm,'ButtonZar','Zar At');ButtonZar.Margins.Left:=850;ButtonZar.Margins.Right:=-100;ButtonZar.Margins.Top:=270;ButtonZar.Margins.Bottom:=-10;ButtonZar.Width:=80;ButtonZar.Height:=40;MyForm.AddNewEvent(ButtonZar,tbeOnClick,'ButtonZarFonk'); 

MyForm.AddNewEvent(btn13,tbeOnClick,'c13');
MyForm.AddNewEvent(btn1,tbeOnClick,'c1');
MyForm.AddNewEvent(btn3,tbeOnClick,'c3');
MyForm.AddNewEvent(btn4,tbeOnClick,'c4');
MyForm.AddNewEvent(btn8,tbeOnClick,'c8');


MyForm.Run;
end; 



Koddaki tüm butonları prosedüre eklemedim henüz, butonlar btn1 btn2 şeklinde tanımlı for döngüsünü kullandığımda bileşen bulunamadı hatasını alıyorum döngüyü nerede kullanmalıyım?


]]> Fri, 04 Aug 2023 11:05:53 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=543&PID=661#661 <![CDATA[Butonlara renk atama : Bütün butonları Btn1, Btn2, Btn3,...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=543&PID=658#658 Yazar: Alforce
Konu: 543
Gönderim Zamanı: 04 Ağustos 2023 Saat 10:36

Bütün butonları Btn1, Btn2, Btn3, Btn4, Btn5 şekilinde adlandırmalısınız.

Bu adlandırma değişken ismi veya text değil, 
MyForm.AddNewProButton(MyForm, (burası), '');
burdaki adlandırmadır.


Mümkün ise kaynak kodunu paylaşabilir misiniz?
]]> Fri, 04 Aug 2023 10:36:04 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=543&PID=658#658 <![CDATA[Butonlara renk atama : Bu kodu kullanırken NCompu ProButton...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=543&PID=657#657 Yazar: halilselvitopu
Konu: 543
Gönderim Zamanı: 04 Ağustos 2023 Saat 10:17

Bu kodu kullanırken NCompu ProButton olarak tanımlamama rağmen SetupComponent kısmında bileşen bulunamadı şeklinde bir hata veriyor sebebini bulamadım. Diğer butonlarda da aynı bileşeni kullanmıştım fakat buradaki hata sebebini anlayamadım.

]]> Fri, 04 Aug 2023 10:17:53 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=543&PID=657#657 <![CDATA[Butonlara renk atama : Bu konuda anlatıldı.Bu kod ise...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=543&PID=651#651 Yazar: Alforce
Konu: 543
Gönderim Zamanı: 03 Ağustos 2023 Saat 18:17

Bu konuda anlatıldı.

Bu kod ise istediğiniz modifiye edilmiş hali:
Var
  i: Integer;
  NComp: TclProButton;
Begin
  For i:= 1 to 5 do
  Begin
    NComp:= TclProButton(MyForm.clFindComponent('Btn'+IntToStr(i)));
    
    clComponent.SetupComponent(NComp,'{"BackgroundColor":"#ee0000"}');
    NComp.Enabled:= False;
  End;
Sanırım istediğiniz şey bu.
]]> Thu, 03 Aug 2023 18:17:52 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=543&PID=651#651 <![CDATA[Butonlara renk atama : butona bastığımda renk olsun diğer...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=543&PID=634#634 Yazar: Zeren
Konu: 543
Gönderim Zamanı: 03 Ağustos 2023 Saat 10:25

butona bastığımda renk olsun diğer butona bastığımda diğerinden renk kalksın sonradan bastığıma geçsin istiyorum ama 18 tane buton var tek tek yazmak yerine daha kolay bir yolu var mı aşağıdaki kod çalışıyor sadece karakter yetmiyor hepsine yazarsam

procedure chnc;
begin
clComponent.SetupComponent(btnchn,'{"BackgroundColor":"#ee0000"}');
clComponent.SetupComponent(btnen,'{"BackgroundColor":"#ffffff"}');
btnchn.enabled:= False;
btnen.enabled := True;

end;
procedure enc;
begin
clComponent.SetupComponent(btnen,'{"BackgroundColor":"#ee0000"}');
clComponent.SetupComponent(btnchn,'{"BackgroundColor":"#ffffff"}');
btnen.enabled:= False;
btnchn.enabled:= True;
end;
]]> Thu, 03 Aug 2023 10:25:45 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=543&PID=634#634