Genel İşlemler - Butonlara renk atama

Butonlara renk atama

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=543
Tarih: 07 Ocak 2025 Saat 23:59
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: Butonlara renk atama

Mesajı Yazan: Zeren
Konu: Butonlara renk atama
Mesaj Tarihi: 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;

Cevaplar:

Mesajı Yazan: Alforce
Mesaj Tarihi: 03 Ağustos 2023 Saat 18:17

https://forum.clomosy.com.tr/butonlara-renk-atama_topic547_post649.html#649" rel="nofollow - 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.

Mesajı Yazan: halilselvitopu
Mesaj Tarihi: 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.

Mesajı Yazan: Alforce
Mesaj Tarihi: 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?

Mesajı Yazan: halilselvitopu
Mesaj Tarihi: 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?

Mesajı Yazan: Alforce
Mesaj Tarihi: 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.

Mesajı Yazan: halilselvitopu
Mesaj Tarihi: 07 Ağustos 2023 Saat 10:05

Merhaba, hata ile ilgili bir gelişme var mı?

Mesajı Yazan: Alforce
Mesaj Tarihi: 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.