Merhaba Raziye,
hesap makinasını butonla yapmak için sana örnek kodlarımı gönderiyorum, kodların içinde ufak ufak notlar aldım nerede ne yaptığımı oradan bakıp yararlanabilirsin. Kolay gelsin.

var  

 MyForm: TclForm;

 testLabel : TclLabel;

 Btn0,Btn1,Btn2,Btn3,BtnTopla,Btn4,Btn5,Btn6,BtnCikar,Btn7,Btn8,Btn9,BtnBol,BtnCarp,BtnSil,BtnSonuc: TClProButton;

 testEdit : TclEdit;

 testLayout,testLayout2,testLayout3,testLayout4 : TclLayout;

 islem: String;

 nolucak: Boolean;

 ilkSayi: Integer;

 

 // Buton tıklamalarını tanımlıyoruz

 

void Btn0Click {

  if (nolucak) { 

    testEdit.Text = '';

    nolucak = false;

  }

  

  if (testEdit.Text == '0') {

    testEdit.Text = '';

  }

  

  testEdit.Text = testEdit.Text + '0';

}

   

void Btn1Click {

  if (nolucak) { 

    testEdit.Text = '';

    nolucak = false;

  }

  

  if (testEdit.Text == '0') {

    testEdit.Text = '';

  }

  

  testEdit.Text = testEdit.Text + '1';

}

void Btn2Click {

  if (nolucak) { 

    testEdit.Text = '';

    nolucak = false;

  }

  

  if (testEdit.Text == '0') {

    testEdit.Text = '';

  }

  

  testEdit.Text = testEdit.Text + '2';

}

void Btn3Click {

  if (nolucak) { 

    testEdit.Text = '';

    nolucak = false;

  }

  

  if (testEdit.Text == '0') {

    testEdit.Text = '';

  }

  

  testEdit.Text = testEdit.Text + '3';

}

void Btn4Click {

  if (nolucak) { 

    testEdit.Text = '';

    nolucak = false;

  }

  

  if (testEdit.Text == '0') {

    testEdit.Text = '';

  }

  

  testEdit.Text = testEdit.Text + '4';

}

void Btn5Click {

  if (nolucak) { 

    testEdit.Text = '';

    nolucak = false;

  }

  

  if (testEdit.Text == '0') {

    testEdit.Text = '';

  }

  

  testEdit.Text = testEdit.Text + '5';

}

void Btn6Click {

  if (nolucak) { 

    testEdit.Text = '';

    nolucak = false;

  }

  

  if (testEdit.Text == '0') {

    testEdit.Text = '';

  }

  

  testEdit.Text = testEdit.Text + '6';

}

void Btn7Click {

  if (nolucak) { 

    testEdit.Text = '';

    nolucak = false;

  }

  

  if (testEdit.Text == '0') {

    testEdit.Text = '';

  }

  

  testEdit.Text = testEdit.Text + '7';

}

void Btn8Click {

  if (nolucak) { 

    testEdit.Text = '';

    nolucak = false;

  }

  

  if (testEdit.Text == '0') {

    testEdit.Text = '';

  }

  

  testEdit.Text = testEdit.Text + '8';

}

void Btn9Click {

  if (nolucak) { 

    testEdit.Text = '';

    nolucak = false;

  }

  

  if (testEdit.Text == '0') {

    testEdit.Text = '';

  }

  

  testEdit.Text = testEdit.Text + '9';

}

void BtnToplaClick {

  islem='+'

  nolucak=true;

  ilkSayi=StrToInt(testEdit.Text);

}

void BtnCikarClick {

  islem='-'

  nolucak=true;

  ilkSayi=StrToInt(testEdit.Text);

}

void BtnBolClick {

  islem='÷'

  nolucak=true;

  ilkSayi=StrToInt(testEdit.Text);

}

void BtnCarpClick {

  islem='X'

  nolucak=true;

  ilkSayi=StrToInt(testEdit.Text);

}

void BtnSonucClick 

var 

  ikinciSayi,sonuc: Integer;

{

  ikinciSayi= StrToInt(testEdit.Text);

  sonuc=0;

  if (islem == '+') { 

    sonuc = (ilkSayi + ikinciSayi)

    }

  else if (islem == '-') { 

    sonuc = (ilkSayi - ikinciSayi)

    }

  else if (islem == 'X') {

    sonuc = (ilkSayi * ikinciSayi)

    }

  else if (islem == '÷') {

    sonuc = (ilkSayi / ikinciSayi)

    }

  

 testEdit.Text = IntToStr(sonuc);

}

void BtnSilClick {

  testEdit.Text='';

}

{

//Yeni bir form oluşturdum

//Bu forma bordo renkli arka plan verdim

// nolucak değişkenini başta temizleme yapmasın diye false olarak ayarladım

MyForm=TclForm.Create(self);

MyForm.SetFormColor('#8a0022','',clGNone);

nolucak = false

//MyForm adındaki formun içine 4 tane dikdörtgen kutu (layout) ekledim

//100x100 boyutunda ve yukarıdan 20 piksel boşluk koydum

//Her biri üst üste (top-aligned) olacak şekilde formun içine yerleştirdim

testLayout = MyForm.AddNewLayout(MyForm,'testLayout');

testLayout.Width = 100;

testLayout.Height = 100;

testLayout.Align=alTop;

testLayout.Margins.Top=20;

testLayout2 = MyForm.AddNewLayout(MyForm,'testLayout2');

testLayout2.Width = 100;

testLayout2.Height = 100;

testLayout2.Align=alTop;

testLayout2.Margins.Top=20;

testLayout3 = MyForm.AddNewLayout(MyForm,'testLayout3');

testLayout3.Width = 100;

testLayout3.Height = 100;

testLayout3.Align=alTop;

testLayout3.Margins.Top=20;

testLayout4 = MyForm.AddNewLayout(MyForm,'testLayout4');

testLayout4.Width = 100;

testLayout4.Height = 100;

testLayout4.Align=alTop;

testLayout4.Margins.Top=20;

//Ekrana sayı veya sonuç göstermek için ve özelliklerini belirleme işlemi yapıyorum

testEdit = MyForm.AddNewEdit(MyForm,'testEdit','0');

testEdit.StyledSettings = ssFamily;

testEdit.TextSettings.Font.Size =30;

testEdit.Height=30;

testEdit.Align=alMostTop;

testEdit.Margins.Top=10;

testEdit.Margins.Right=10;

testEdit.Margins.Left=10;

testEdit.ReadOnly = True;

//Butonları oluşturuyorum ve özelleştiriyorum

Btn0 = MyForm.AddNewProButton(testLayout4,'Btn0','0');

Btn0.Height=70;

Btn0.Width=80;

Btn0.Margins.Left=10;

Btn0.Margins.Right=5;

Btn0.Align=alLeft;

Btn0.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');

Btn0.clProSettings.BorderWidth = 3;

Btn0.clProSettings.RoundHeight= 10;

Btn0.clProSettings.RoundWidth= 10;

Btn0.clProSettings.FontSize = 40;

Btn0.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

Btn0.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');

Btn0.SetclProSettings(Btn0.clProSettings);

MyForm.AddNewEvent(Btn0,tbeOnClick,'Btn0Click');

Btn1 = MyForm.AddNewProButton(testLayout,'Btn1','1');

Btn1.Height=70;

Btn1.Width=80;

Btn1.Margins.Left=10;

Btn1.Margins.Right=5;

Btn1.Align=alLeft;

Btn1.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');

Btn1.clProSettings.BorderWidth = 3;

Btn1.clProSettings.RoundHeight= 10;

Btn1.clProSettings.RoundWidth= 10;

Btn1.clProSettings.FontSize = 40;

Btn1.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

Btn1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');

Btn1.SetclProSettings(Btn1.clProSettings); 

MyForm.AddNewEvent(Btn1,tbeOnClick,'Btn1Click');

Btn2 = MyForm.AddNewProButton(testLayout,'Btn2','2');

Btn2.Height=70;

Btn2.Width=80;

Btn2.Margins.Left=10;

Btn2.Margins.Right=5;

Btn2.Align=alLeft;

Btn2.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');

Btn2.clProSettings.BorderWidth = 3;

Btn2.clProSettings.RoundHeight= 10;

Btn2.clProSettings.RoundWidth= 10;

Btn2.clProSettings.FontSize = 40;

Btn2.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

Btn2.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');

Btn2.SetclProSettings(Btn2.clProSettings); 

MyForm.AddNewEvent(Btn2,tbeOnClick,'Btn2Click');

Btn3 = MyForm.AddNewProButton(testLayout,'Btn3','3');

Btn3.Height=70;

Btn3.Width=80;

Btn3.Margins.Left=10;

Btn3.Margins.Right=5;

Btn3.Align=alLeft;

Btn3.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');

Btn3.clProSettings.BorderWidth = 3;

Btn3.clProSettings.RoundHeight= 10;

Btn3.clProSettings.RoundWidth= 10;

Btn3.clProSettings.FontSize = 40;

Btn3.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

Btn3.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');

Btn3.SetclProSettings(Btn3.clProSettings); 

MyForm.AddNewEvent(Btn3,tbeOnClick,'Btn3Click');

Btn4 = MyForm.AddNewProButton(testLayout2,'Btn4','4');

Btn4.Height=70;

Btn4.Width=80;

Btn4.Margins.Left=10;

Btn4.Margins.Right=5;

Btn4.Align=alLeft;

Btn4.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');

Btn4.clProSettings.BorderWidth = 3;

Btn4.clProSettings.RoundHeight= 10;

Btn4.clProSettings.RoundWidth= 10;

Btn4.clProSettings.FontSize = 40;

Btn4.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

Btn4.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');

Btn4.SetclProSettings(Btn4.clProSettings); 

MyForm.AddNewEvent(Btn4,tbeOnClick,'Btn4Click');

Btn5 = MyForm.AddNewProButton(testLayout2,'Btn5','5');

Btn5.Height=70;

Btn5.Width=80;

Btn5.Margins.Left=10;

Btn5.Margins.Right=5;

Btn5.Align=alLeft;

Btn5.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');

Btn5.clProSettings.BorderWidth = 3;

Btn5.clProSettings.RoundHeight= 10;

Btn5.clProSettings.RoundWidth= 10;

Btn5.clProSettings.FontSize = 40;

Btn5.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

Btn5.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');

Btn5.SetclProSettings(Btn5.clProSettings); 

MyForm.AddNewEvent(Btn5,tbeOnClick,'Btn5Click')

Btn6 = MyForm.AddNewProButton(testLayout2,'Btn6','6');

Btn6.Height=70;

Btn6.Width=80;

Btn6.Margins.Left=10;

Btn6.Margins.Right=5;

Btn6.Align=alLeft;

Btn6.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');

Btn6.clProSettings.BorderWidth = 3;

Btn6.clProSettings.RoundHeight= 10;

Btn6.clProSettings.RoundWidth= 10;

Btn6.clProSettings.FontSize = 40;

Btn6.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

Btn6.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');

Btn6.SetclProSettings(Btn6.clProSettings); 

MyForm.AddNewEvent(Btn6,tbeOnClick,'Btn6Click');

Btn7 = MyForm.AddNewProButton(testLayout3,'Btn7','7');

Btn7.Height=70;

Btn7.Width=80;

Btn7.Margins.Left=10;

Btn7.Margins.Right=5;

Btn7.Align=alLeft;

Btn7.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');

Btn7.clProSettings.BorderWidth = 3;

Btn7.clProSettings.RoundHeight= 10;

Btn7.clProSettings.RoundWidth= 10;

Btn7.clProSettings.FontSize = 40;

Btn7.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

Btn7.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');

Btn7.SetclProSettings(Btn7.clProSettings);

MyForm.AddNewEvent(Btn7,tbeOnClick,'Btn7Click');

Btn8 = MyForm.AddNewProButton(testLayout3,'Btn8','8');

Btn8.Height=70;

Btn8.Width=80;

Btn8.Margins.Left=10;

Btn8.Margins.Right=5;

Btn8.Align=alLeft;

Btn8.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');

Btn8.clProSettings.BorderWidth = 3;

Btn8.clProSettings.RoundHeight= 10;

Btn8.clProSettings.RoundWidth= 10;

Btn8.clProSettings.FontSize = 40;

Btn8.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

Btn8.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');

Btn8.SetclProSettings(Btn8.clProSettings); 

MyForm.AddNewEvent(Btn8,tbeOnClick,'Btn8Click');

Btn9 = MyForm.AddNewProButton(testLayout3,'Btn9','9');

Btn9.Height=70;

Btn9.Width=80;

Btn9.Margins.Left=10;

Btn9.Margins.Right=5;

Btn9.Align=alLeft;

Btn9.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');

Btn9.clProSettings.BorderWidth = 3;

Btn9.clProSettings.RoundHeight= 10;

Btn9.clProSettings.RoundWidth= 10;

Btn9.clProSettings.FontSize = 40;

Btn9.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

Btn9.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');

Btn9.SetclProSettings(Btn9.clProSettings);

MyForm.AddNewEvent(Btn9,tbeOnClick,'Btn9Click');

BtnTopla = MyForm.AddNewProButton(testLayout,'BtnTopla','+');

BtnTopla.Height=70;

BtnTopla.Width=80;

BtnTopla.Margins.Left=10;

BtnTopla.Margins.Right=5;

BtnTopla.Align=alLeft;

BtnTopla.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');

BtnTopla.clProSettings.BorderWidth = 3;

BtnTopla.clProSettings.RoundHeight= 10;

BtnTopla.clProSettings.RoundWidth= 10;

BtnTopla.clProSettings.FontSize = 40;

BtnTopla.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

BtnTopla.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');

BtnTopla.SetclProSettings(BtnTopla.clProSettings); 

MyForm.AddNewEvent(BtnTopla,tbeOnClick,'BtnToplaClick');

BtnCikar = MyForm.AddNewProButton(testLayout2,'BtnCikar','-');

BtnCikar.Height=70;

BtnCikar.Width=80;

BtnCikar.Margins.Left=10;

BtnCikar.Margins.Right=5;

BtnCikar.Align=alLeft;

BtnCikar.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');

BtnCikar.clProSettings.BorderWidth = 3;

BtnCikar.clProSettings.RoundHeight= 10;

BtnCikar.clProSettings.RoundWidth= 10;

BtnCikar.clProSettings.FontSize = 40;

BtnCikar.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

BtnCikar.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');

BtnCikar.SetclProSettings(BtnCikar.clProSettings);

MyForm.AddNewEvent(BtnCikar,tbeOnClick,'BtnCikarClick');

BtnCarp = MyForm.AddNewProButton(testLayout3,'BtnCarp','X');

BtnCarp.Height=70;

BtnCarp.Width=80;

BtnCarp.Margins.Left=10;

BtnCarp.Margins.Right=5;

BtnCarp.Align=alLeft;

BtnCarp.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');

BtnCarp.clProSettings.BorderWidth = 3;

BtnCarp.clProSettings.RoundHeight= 10;

BtnCarp.clProSettings.RoundWidth= 10;

BtnCarp.clProSettings.FontSize = 40;

BtnCarp.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

BtnCarp.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');

BtnCarp.SetclProSettings(BtnCarp.clProSettings); 

MyForm.AddNewEvent(BtnCarp,tbeOnClick,'BtnCarpClick');

BtnSil = MyForm.AddNewProButton(testLayout4,'BtnSil','C');

BtnSil.Height=70;

BtnSil.Width=80;

BtnSil.Margins.Left=10;

BtnSil.Margins.Right=5;

BtnSil.Align=alLeft;

BtnSil.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');

BtnSil.clProSettings.BorderWidth = 3;

BtnSil.clProSettings.RoundHeight= 10;

BtnSil.clProSettings.RoundWidth= 10;

BtnSil.clProSettings.FontSize = 40;

BtnSil.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

BtnSil.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');

BtnSil.SetclProSettings(BtnSil.clProSettings);

MyForm.AddNewEvent(BtnSil,tbeOnClick,'BtnSilClick');

BtnSonuc = MyForm.AddNewProButton(testLayout4,'BtnSonuc','=');

BtnSonuc.Height=70;

BtnSonuc.Width=80;

BtnSonuc.Margins.Left=10;

BtnSonuc.Margins.Right=5;

BtnSonuc.Align=alLeft;

BtnSonuc.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');

BtnSonuc.clProSettings.BorderWidth = 3;

BtnSonuc.clProSettings.RoundHeight= 10;

BtnSonuc.clProSettings.RoundWidth= 10;

BtnSonuc.clProSettings.FontSize = 40;

BtnSonuc.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

BtnSonuc.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');

BtnSonuc.SetclProSettings(BtnSonuc.clProSettings);

MyForm.AddNewEvent(BtnSonuc,tbeOnClick,'BtnSonucClick');

BtnBol = MyForm.AddNewProButton(testLayout4,'BtnBol','÷');

BtnBol.Height=70;

BtnBol.Width=80;

BtnBol.Margins.Left=10;

BtnBol.Margins.Right=5;

BtnBol.Align=alLeft;

BtnBol.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');

BtnBol.clProSettings.BorderWidth = 3;

BtnBol.clProSettings.RoundHeight= 10;

BtnBol.clProSettings.RoundWidth= 10;

BtnBol.clProSettings.FontSize = 40;

BtnBol.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

BtnBol.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');

BtnBol.SetclProSettings(BtnBol.clProSettings);

MyForm.AddNewEvent(BtnBol,tbeOnClick,'BtnBolClick');

MyForm.Run;

}

---- örnek kod ----

-----------

Yukarıdakine benzer şekilde, Clsender ile tıkladığın butonun caption özelliğini döndürüp istediğin gibi kullanabilirsin.

Mesela bu kodda btn1 butonuna tıkadığımız zaman, bu butonun Captionu 1 olduğu için ShowMessage ile ekrana 1 yazdırıyor.

Daha iyi anlayabilmek için dökümandan ClSender'ı incelemeni öneririm.

İyi çalışmalar.

Hesap makinesinde sayıları edit girişi şeklinde değil de butonlu sayı seçip işlem yapmak istiyorum yardımcı olabilir misiniz? ana kod

  var

  MyForm : TCLForm;

  Sayi1Edit, Sayi2Edit : TCLEdit;

  OperatorLabel, SonucLabel : TCLLabel;

  ArtiButton, EksiButton, CarpButton, BolmeButton,UsAlmaButton,ModButton :  TCLImage;

  AnaPanel, sayiPanel,IslemPanel, IslemPanel1,IslemPanel2,IslemPanel3 HesaplaPanel, SonucPanel : TCLPanel;

  HesaplaButton : TCLButton;

  Unit1 : TCLUnit;

  

void HesaplaButtonTikla;

{

  if((Sayi1Edit.Text == '') || (Sayi2Edit.Text == ''))

  {

    ShowMessage('Sayi değerlerini boş bırakmayınız.');

  }

  else

  {

    if (OperatorLabel.Text == '?')

      ShowMessage('Bir işlem seçiniz.');

    else

    {

      Unit1.UnitName = 'uHesaplama';

      Unit1.CallerForm = MyForm;

      Unit1.Run;

      MyForm.clHide;   

    }

  }

}

void IslemButtonTikla; 

var

  clickedBtn:TClProButton;

{

  clickedBtn = TClProButton(MyForm.Clsender); 

  OperatorLabel.Text = clickedBtn.Hint;

}

 

{

  MyForm = TCLForm.Create(Self);

  Unit1 = TCLUnit.Create;

  AnaPanel = MyForm.AddNewPanel(MyForm,'AnaPanel');

  AnaPanel.Align = AlClient;

  AnaPanel.Margins.Top = 30;

  AnaPanel.Margins.Bottom = 30;

  AnaPanel.Margins.Left = 30;

  AnaPanel.Margins.Right = 30;

  

  sayiPanel = MyForm.AddNewPanel(AnaPanel,'sayiPanel');

  sayiPanel.Align = AlMostTop;

  sayiPanel.Height = AnaPanel.Height / 6;

  sayiPanel.Margins.Top = 5;

  

  Sayi1Edit = MyForm.AddNewEdit(sayiPanel,'Sayi1Edit', 'Sayı 1... ');

  Sayi1Edit.Align = AlLeft;

  Sayi1Edit.Width = sayiPanel.Width/2 - 70;

  Sayi1Edit.clTypeOfField = taFloat;

  

  OperatorLabel = MyForm.AddNewLabel(sayiPanel,'OperatorLabel','?');

  OperatorLabel.Align = alClient;

  OperatorLabel.StyledSettings = ssFamily;

  OperatorLabel.TextSettings.Font.Size = 18;

  OperatorLabel.TextSettings.HorzAlign = taCenter;

  

  Sayi2Edit = MyForm.AddNewEdit(sayiPanel,'Sayi2Edit', 'Sayı 2... ');

  Sayi2Edit.Align = alRight;

  Sayi2Edit.Width = sayiPanel.Width/2 - 70;

  Sayi2Edit.clTypeOfField = taFloat;

  

  //Operatörler için oluşturulan panel yapısı

  IslemPanel = MyForm.AddNewPanel(AnaPanel,'IslemPanel');

  IslemPanel.Align = AlMostTop;

  IslemPanel.Height = AnaPanel.Height / 3;

  IslemPanel.Margins.Top = 30;

  

  IslemPanel1 = MyForm.AddNewPanel(IslemPanel,'IslemPanel1');

  IslemPanel1.Align = AlMostTop;

  IslemPanel1.Height = IslemPanel.Height / 2 - 20;

  IslemPanel1.Margins.Top = 5;

  IslemPanel1.Margins.Bottom = 5;

  

  ArtiButton = MyForm.AddNewButton(IslemPanel1,'ArtiButton', '+');

  ArtiButton.Align = alLeft;

  ArtiButton.Margins.Left = IslemPanel1.Width / 4;

  ArtiButton.Width = IslemPanel1.Width / 6;

  ArtiButton.Hint = '+';

  MyForm.AddNewEvent(ArtiButton,tbeOnClick,'IslemButtonTikla');

  

  EksiButton = MyForm.AddNewButton(IslemPanel1,'EksiButton', '-');

  EksiButton.Align = alRight;

  EksiButton.Margins.Right = IslemPanel1.Width / 4;

  EksiButton.Width = IslemPanel1.Width / 6;

  EksiButton.Hint = '-';

  MyForm.AddNewEvent(EksiButton,tbeOnClick,'IslemButtonTikla');

  

  IslemPanel2 = MyForm.AddNewPanel(IslemPanel,'IslemPanel2');

  IslemPanel2.Align = AlTop;

  IslemPanel2.Height = IslemPanel.Height / 2 - 20;

  IslemPanel2.Margins.Top = 5;

  IslemPanel2.Margins.Bottom = 5;

  

  CarpButton = MyForm.AddNewButton(IslemPanel2,'CarpButton', '*');

  CarpButton.Align = alLeft;

  CarpButton.Margins.Left = IslemPanel2.Width / 4;

  CarpButton.Width = IslemPanel2.Width / 6;

  CarpButton.Hint = '*';

  MyForm.AddNewEvent(CarpButton,tbeOnClick,'IslemButtonTikla');

  

  BolmeButton = MyForm.AddNewButton(IslemPanel2,'BolmeButton', '/');

  BolmeButton.Align = alRight;

  BolmeButton.Margins.Right = IslemPanel2.Width / 4;

  BolmeButton.Width = IslemPanel2.Width / 6;

  BolmeButton.Hint = '/';

  MyForm.AddNewEvent(BolmeButton,tbeOnClick,'IslemButtonTikla');

  

  IslemPanel3 = MyForm.AddNewPanel(IslemPanel,'IslemPanel3');

  IslemPanel3.Align = AlTop;

  IslemPanel3.Height = IslemPanel.Height / 2-20;

  IslemPanel3.Margins.Top = 5;

  IslemPanel3.Margins.Bottom = 5;

  

  ModButton = MyForm.AddNewButton(IslemPanel3,'ModButton', 'mod');

  ModButton.Align = alLeft;

  ModButton.Margins.Left = IslemPanel2.Width / 4;

  ModButton.Width = IslemPanel2.Width / 6;

  ModButton.Hint = 'mod';

  MyForm.AddNewEvent(ModButton,tbeOnClick,'IslemButtonTikla');

  

  UsAlmaButton = MyForm.AddNewButton(IslemPanel3,'UsAlmaButton', '^');

  UsAlmaButton.Align = alRight;

  UsAlmaButton.Margins.Right = IslemPanel2.Width / 4;

  UsAlmaButton.Width = IslemPanel2.Width / 6;

  UsAlmaButton.Hint = '^';

  MyForm.AddNewEvent(UsAlmaButton,tbeOnClick,'IslemButtonTikla');

  

  //Hesaplama butonu için oluşturulan panel yapısı

  HesaplaPanel = MyForm.AddNewPanel(AnaPanel, 'HesaplaPanel');

  HesaplaPanel.Align = AlBottom;

  HesaplaPanel.Height = AnaPanel.Height /6;

  HesaplaPanel.Margins.Bottom = 5;

  

  HesaplaButton = MyForm.AddNewButton(HesaplaPanel,'HesaplaButton', 'Hesapla');

  HesaplaButton.Align = alCenter;

  HesaplaButton.Height = HesaplaPanel.Height / 2;

  HesaplaButton.Width = 100;

  MyForm.AddNewEvent(HesaplaButton,tbeOnClick,'HesaplaButtonTikla');

  

  //uIslem ekranından gelen sonuç:

  SonucPanel =  MyForm.AddNewPanel(AnaPanel, 'SonucPanel');

  SonucPanel.Align = AlMostBottom;

  SonucPanel.Height = AnaPanel.Height / 8;

  SonucPanel.Margins.Bottom = 5;

  

  SonucLabel = MyForm.AddNewLabel(SonucPanel, 'SonucLabel','Sonuç: ');

  SonucLabel.Align = alLeft;

  SonucLabel.Width=SonucPanel.width;

  SonucLabel.StyledSettings = ssFamily;

  SonucLabel.TextSettings.Font.Size = 24;

  

  MyForm.Run;

}    

var

HesaplamaForm:TclForm;

Sayi1Label, Sayi2Label,IslemLabel : TCLLabel;

HesaplaButton : TCLButton;

IslemPanel, HesaplaPanel : TCLPanel;

void FormKapat;

{

  Clomosy.RunUnit('MainCode');

}

void AnaSayfadanAktar;

{

  Sayi1Label.Text = callerForm.Sayi1Edit.Text;

  IslemLabel.Text = callerForm.OperatorLabel.Text;

  Sayi2Label.Text = callerForm.Sayi2Edit.Text;

}

void Hesapla;

var

  Cevap : String;

{

  if(IslemLabel.Text == '+')

  {

    Cevap = IntToStr(StrToInt(Sayi1Label.Text) + StrToInt(Sayi2Label.Text));

  }

  else if(IslemLabel.Text == '-')

  {

   Cevap =  IntToStr(StrToInt(Sayi1Label.Text) - StrToInt(Sayi2Label.Text));

  }

  else if(IslemLabel.Text == '*')

  {

    Cevap =  IntToStr(StrToInt(Sayi1Label.Text) * StrToInt(Sayi2Label.Text));

  }

  else if(IslemLabel.Text == 'mod')

  {

    Cevap =  IntToStr(StrToInt(Sayi1Label.Text) mod StrToInt(Sayi2Label.Text));

  }

  else if(IslemLabel.Text == '^')

  {

    Cevap =  IntToStr(StrToInt(Sayi1Label.Text) ^ StrToInt(Sayi2Label.Text));

  }

  else

  {

    Cevap =  IntToStr(StrToInt(Sayi1Label.Text) / StrToInt(Sayi2Label.Text));

  }

  callerForm.SonucLabel.Text = 'Sonuç: '+ Cevap;

  

  ShowMessage('İşlem Sonucu Ana Sayfaya Yazdırıldı. Yönlendiriliyorsunuz...');

  callerForm.clShow;

  HesaplamaForm.clHide;

  

}

{

  HesaplamaForm = TCLForm.Create(Self);

  

  IslemPanel = HesaplamaForm.AddNewPanel(HesaplamaForm,'IslemPanel');

  IslemPanel.align = alMostTop;

  IslemPanel.height = HesaplamaForm.clWidth / 4;

  IslemPanel.margins.Top = 20;

  

  Sayi1Label = HesaplamaForm.AddNewLabel(IslemPanel,'Sayi1Label',' ');

  Sayi1Label.align = alLeft;

  Sayi1Label.margins.left = 40;

  Sayi1Label.width = (IslemPanel.Width*30)/100;

  Sayi1Label.styledsettings = ssFamily;

  Sayi1Label.Textsettings.Font.Size = 24;

  Sayi1Label.TextSettings.HorzAlign = taTrailing;

 

  Sayi2Label = HesaplamaForm.AddNewLabel(IslemPanel,'Sayi2Label',' ');

  Sayi2Label.align = alRight;

  Sayi2Label.margins.Right = 40;

  Sayi2Label.width = (IslemPanel.Width*30)/100;

  Sayi2Label.styledsettings = ssFamily;

  Sayi2Label.Textsettings.Font.Size = 24;

  

  

  IslemLabel = HesaplamaForm.AddNewLabel(IslemPanel,'IslemLabel','?');

  IslemLabel.align = alClient;

  IslemLabel.styledsettings = ssFamily;

  IslemLabel.Textsettings.Font.Size = 24;

  IslemLabel.TextSettings.HorzAlign = taCenter;

  

  HesaplaPanel = HesaplamaForm.AddNewPanel(HesaplamaForm, 'HesaplaPanel');

  HesaplaPanel.align = alTop;

  HesaplaPanel.height = HesaplamaForm.clWidth / 4;

  HesaplaPanel.margins.Top = 20;

  

  HesaplaButton = HesaplamaForm.AddNewButton(HesaplaPanel,'HesaplaButton', '=');

  HesaplaButton.Align = alCenter;

  HesaplaButton.Height = HesaplaPanel.Height / 2;

  HesaplaButton.Width = 100;

  HesaplaButton.styledsettings = ssFamily;

  HesaplaButton.Textsettings.Font.Size = 24;

  HesaplamaForm.AddNewEvent(HesaplaButton, tbeOnClick, 'Hesapla');

  HesaplamaForm.AddNewEvent(HesaplamaForm,tbeOnFormShow,'AnaSayfadanAktar');

  HesaplamaForm.AddNewEvent(HesaplamaForm,tbeonFormClose, 'FormKapat');

  HesaplamaForm.Run;

}