Form1: TclForm;

  ColorBtn: TClProButton;

  ClickCount: Integer;

// Butona tıklandığında çalışacak olay (Event)

void BtnOnClick;

{

  ClickCount = ClickCount + 1;

  

  // Tıklama sayısına göre listedeki renkleri sırayla BackgroundColor'a atıyoruz

  if ClickCount == 1 

  {

    ColorBtn.clProSettings.BackgroundColor = clAlphaColor.clFirebrick; // Ateş Tuğlası

    ColorBtn.Caption = 'Ateş Tuğlası';

  }

  else if ClickCount == 2 

  {

    ColorBtn.clProSettings.BackgroundColor = clAlphaColor.clSeaGreen; // Deniz Yeşili

    ColorBtn.Caption = 'Deniz Yeşili';

  }

  else if ClickCount == 3 

  {

    ColorBtn.clProSettings.BackgroundColor = clAlphaColor.clRoyalblue; // Kraliyet Mavisi

    ColorBtn.Caption = 'Kraliyet Mavisi';

  }

  else 

  {

    ColorBtn.clProSettings.BackgroundColor = clAlphaColor.clDarkorchid; // Koyu Orkide

    ColorBtn.Caption = 'Rengi Değiştir';

    ClickCount = 0; // Başa dön

  }

  

  // ÖNEMLİ: Değişiklikleri butona yansıtmak için bu metot çağrılmalı!

  ColorBtn.SetclProSettings(ColorBtn.clProSettings);

}

// Ana Program Bloğu

{

  Form1 = TclForm.Create(Self);

  ClickCount = 0;

  

  // Form üzerine ProButton ekliyoruz

  ColorBtn = Form1.AddNewProButton(Form1, 'ColorBtn', 'Rengi Değiştir');

  ColorBtn.Align = alCenter;

  ColorBtn.Width = 200;

  ColorBtn.Height = 70;

  

  // Butonun başlangıç stili ayarları

  ColorBtn.clProSettings.BackgroundColor = clAlphaColor.clDarkorchid;

  ColorBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  ColorBtn.clProSettings.FontSize = 16;

  ColorBtn.clProSettings.TextSettings.Font.Style = [fsBold];

  ColorBtn.clProSettings.IsFill = True;

  

  // Köşeleri ovalleştirmek için

  ColorBtn.clProSettings.IsRound = True;

  ColorBtn.clProSettings.RoundHeight = 15;

  ColorBtn.clProSettings.RoundWidth = 15;

  

  // Başlangıç ayarlarını uygula

  ColorBtn.SetclProSettings(ColorBtn.clProSettings);

  

  // Butona tıklama olayı ataması yapıyoruz

  Form1.AddNewEvent(ColorBtn, tbeOnClick, 'BtnOnClick');

  

  // Formu çalıştır

  Form1.Run;

}      iyi çalışmalar dilerim