Clomosy | Forum : Butona Unit Şartı Ekleyemiyorum https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 08:57:48 +0000 Wed, 07 Aug 2024 14:44:05 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=829 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Butona Unit Şartı Ekleyemiyorum : Merhabalar,AddnewEvent Yerine...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=829&PID=1521#1521 Yazar: Kemal
Konu: 829
Gönderim Zamanı: 07 Ağustos 2024 Saat 14:44

Merhabalar,

AddnewEvent Yerine 
  btnOyunaBasla.OnClick = 'butonaTikla';
ile tıklama işlemi verirsen hata gelmeyecektir.
]]> Wed, 07 Aug 2024 14:44:05 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=829&PID=1521#1521 <![CDATA[Butona Unit Şartı Ekleyemiyorum : var dcGameForm: TclGameForm; kullaniciBilgileriPanel:...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=829&PID=1518#1518 Yazar: AhmetUnuvar
Konu: 829
Gönderim Zamanı: 07 Ağustos 2024 Saat 14:36

var
  dcGameForm: TclGameForm;
  kullaniciBilgileriPanel: TclProPanel;
  btnOyunaBasla: TClProButton;
  oyuncuAdiProEdit: TclProEdit;
  oyuncuSayisiCmb: TCLComboBox;
  arkaPlan: TCLImage;
  oyunSayfasiUnit, ucKisilikUnit, dortKisilikUnit: TclUnit;

void goToIkiKisilik; // iki kişilik sayfanın adı goToIkiKisilik
{
  dcGameForm.clShow;
  oyunSayfasiUnit.UnitName = 'oyunSayfasiUnit';
  oyunSayfasiUnit.CallerForm = dcGameForm;
  oyunSayfasiUnit.Run;
}

void goToUcKisilik;
{
  dcGameForm.clShow;
  ucKisilikUnit.UnitName = 'ucKisilikUnit';
  ucKisilikUnit.CallerForm = dcGameForm;
  ucKisilikUnit.Run;
}

void goToDortKisilik;
{
  dcGameForm.clShow;
  dortKisilikUnit.UnitName = 'dortKisilikUnit';
  dortKisilikUnit.CallerForm = dcGameForm;
  dortKisilikUnit.Run;
}

void butonaTikla;
{
  case oyuncuSayisiCmb.ItemIndex of
    {
    0: goToIkiKisilik;  // 2 oyuncu seçildiğinde
    1: goToUcKisilik;    // 3 oyuncu seçildiğinde
    2: goToDortKisilik;  // 4 oyuncu seçildiğinde
  
  else
    ShowMessage('Geçersiz Seçim');
  }
}
{
  dcGameForm = TclGameForm.Create(Self);
  oyunSayfasiUnit = TclUnit.Create;
  ucKisilikUnit = TclUnit.Create;
  dortKisilikUnit = TclUnit.Create;
  // Arka Plan
  arkaPlan = dcGameForm.AddNewImage(dcGameForm, 'arkaPlan');
  arkaPlan.Align = alClient;
  arkaPlan.Height = 250;
  arkaPlan.Width = 300;
  dcGameForm.SetImage(arkaPlan, 'https://i.hizliresim.com/d5u495h.png');
  // Panel
  kullaniciBilgileriPanel = dcGameForm.AddNewProPanel(dcGameForm, 'kullaniciBilgileriPanel');
  clComponent.SetupComponent(dcGameForm,
    '{
      "Align" : "Center",
      "MarginBottom": 135,
      "Width" : 200,
      "Height" : 280,
      "RoundHeight" : 10,
      "RoundWidth" : 10,
      "BorderWidth" : 2,
      "BorderColor" : "#fabd20"
    }'
  );
  oyuncuSayisiCmb = dcGameForm.AddNewComboBox(dcGameForm, 'oyuncuSayisiCmb');
  oyuncuSayisiCmb.Align = alTop;
  oyuncuSayisiCmb.Margins.Bottom = 370;
  oyuncuSayisiCmb.Width = 180;
  oyuncuSayisiCmb.Height = 45;
  oyuncuSayisiCmb.Margins.Left = 30;
  oyuncuSayisiCmb.AddItem('2', '2');
  oyuncuSayisiCmb.AddItem('3', '3');
  oyuncuSayisiCmb.AddItem('4', '4');
  oyuncuAdiProEdit = dcGameForm.AddNewProEdit(kullaniciBilgileriPanel, 'oyuncuAdiProEdit', 'Oyuncu Adını Giriniz');
  clComponent.SetupComponent(
    oyuncuAdiProEdit,
    '{
      "Align" : "Center",
      "MarginBottom" : 270,
      "Width"  : 180,
      "Height" : 45,
      "RoundHeight" : 14,
      "RoundWidth" : 2,
      "MarginLeft" : 30
    }'
  );
  btnOyunaBasla = dcGameForm.AddNewProButton(dcGameForm, 'btnOyunaBasla', 'Oyuna Başla');
  clComponent.SetupComponent(
    btnOyunaBasla,
    '{
      "caption" : "Oyuna Başla", 
      "Align" : "Center", 
      "MarginBottom" : 60, 
      "MarginLeft" : 31,
      "Width" : 150,
      "Height" : 50, 
      "RoundHeight" : 7, 
      "RoundWidth" : 2 , 
      "BorderColor" : "#ffffff" , 
      "BorderWidth" : 2,
      "BackgroundColor": "#ffffff",
      "FontStyle":"bold"
    }'
  );
  // Butona tıklama olayını ekleyin
  dcGameForm.AddNewEvent(btnOyunaBasla, tbeOnClick, 'butonaTikla');
  // Oyuncu sayısı değiştiğinde deneme fonksiyonunu çağırın (isteğe bağlı)
  //dcGameForm.AddNewEvent(oyuncuSayisiCmb, tbeOnChange, 'deneme');
  dcGameForm.Run;
}


merhabalar. combobox'tan seçtiğim ilk seçenek açılıyor ancak ilk açılan seçeneği kapattıktan sonra combobox'tan seçtiğim ikinci seçenek açılmıyor. butonaTikla tanımlı değil hatası veriyor. 
]]> Wed, 07 Aug 2024 14:36:34 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=829&PID=1518#1518 <![CDATA[Butona Unit Şartı Ekleyemiyorum : Merhaba CaferoyunSayfasiUnit.UnitName...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=829&PID=1515#1515 Yazar: Kemal
Konu: 829
Gönderim Zamanı: 07 Ağustos 2024 Saat 14:19

Merhaba Cafer
 oyunSayfasiUnit.UnitName = 'ikiKisilikUnit';
 Satırını
 oyunSayfasiUnit.UnitName = 'oyunSayfasiUnit';
 Bu şekilde değiştirirsen çalışacaktır.

]]> Wed, 07 Aug 2024 14:19:20 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=829&PID=1515#1515 <![CDATA[Butona Unit Şartı Ekleyemiyorum : // Ana Sayfada combobox&#039;ta...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=829&PID=1505#1505 Yazar: AhmetUnuvar
Konu: 829
Gönderim Zamanı: 07 Ağustos 2024 Saat 13:07

// Ana Sayfada combobox'ta 2 seçildiği zaman iki kişilik sayfaya , 3 seçildiği zaman üç kişilik sayfaya , 4 seçildiği zaman 4 kişilik sayfaya gitmesini istiyorum ancak oyuna başla butonuna tıkladığım zaman " butonaTikla1"  tanımlanamadı hatası alıyorum. 

var
  dcGameForm: TclGameForm;
  kullaniciBilgileriPanel: TclProPanel;
  btnOyunaBasla: TClProButton;
  oyuncuAdiProEdit: TclProEdit;
  oyuncuSayisiCmb: TCLComboBox;
  arkaPlan: TCLImage;
  oyunSayfasiUnit, ucKisilikUnit, dortKisilikUnit: TclUnit;

void goToOyunSayfasi; // iki kişilik sayfanın adı goToOyunSayfasi
{
  dcGameForm.clShow;
  oyunSayfasiUnit.UnitName = 'ikiKisilikUnit';
  oyunSayfasiUnit.CallerForm = dcGameForm;
  oyunSayfasiUnit.Run;
}

void goToUcKisilik;
{
  dcGameForm.clShow;
  ucKisilikUnit.UnitName = 'ucKisilikUnit';
  ucKisilikUnit.CallerForm = dcGameForm;
  ucKisilikUnit.Run;
}

void goToDortKisilik;
{
  dcGameForm.clShow;
  dortKisilikUnit.UnitName = 'dortKisilikUnit';
  dortKisilikUnit.CallerForm = dcGameForm;
  dortKisilikUnit.Run;
}

void butonaTikla;
{
  case oyuncuSayisiCmb.ItemIndex of
    {
    0: goToOyunSayfasi;  // 2 oyuncu seçildiğinde
    1: goToUcKisilik;    // 3 oyuncu seçildiğinde
    2: goToDortKisilik;  // 4 oyuncu seçildiğinde
  
  else
    ShowMessage('Geçersiz Seçim');
  }
}
{
  dcGameForm = TclGameForm.Create(Self);
  oyunSayfasiUnit = TclUnit.Create;
  ucKisilikUnit = TclUnit.Create;
  dortKisilikUnit = TclUnit.Create;
  // Arka Plan
  arkaPlan = dcGameForm.AddNewImage(dcGameForm, 'arkaPlan');
  arkaPlan.Align = alClient;
  arkaPlan.Height = 250;
  arkaPlan.Width = 300;
  dcGameForm.SetImage(arkaPlan, 'https://i.hizliresim.com/d5u495h.png');
  // Panel
  kullaniciBilgileriPanel = dcGameForm.AddNewProPanel(dcGameForm, 'kullaniciBilgileriPanel');
  clComponent.SetupComponent(dcGameForm,
    '{
      "Align" : "Center",
      "MarginBottom": 135,
      "Width" : 200,
      "Height" : 280,
      "RoundHeight" : 10,
      "RoundWidth" : 10,
      "BorderWidth" : 2,
      "BorderColor" : "#fabd20"
    }'
  );
  oyuncuSayisiCmb = dcGameForm.AddNewComboBox(dcGameForm, 'oyuncuSayisiCmb');
  oyuncuSayisiCmb.Align = alTop;
  oyuncuSayisiCmb.Margins.Bottom = 370;
  oyuncuSayisiCmb.Width = 180;
  oyuncuSayisiCmb.Height = 45;
  oyuncuSayisiCmb.Margins.Left = 30;
  oyuncuSayisiCmb.AddItem('2', '2');
  oyuncuSayisiCmb.AddItem('3', '3');
  oyuncuSayisiCmb.AddItem('4', '4');
  oyuncuAdiProEdit = dcGameForm.AddNewProEdit(kullaniciBilgileriPanel, 'oyuncuAdiProEdit', 'Oyuncu Adını Giriniz');
  clComponent.SetupComponent(
    oyuncuAdiProEdit,
    '{
      "Align" : "Center",
      "MarginBottom" : 270,
      "Width"  : 180,
      "Height" : 45,
      "RoundHeight" : 14,
      "RoundWidth" : 2,
      "MarginLeft" : 30
    }'
  );
  btnOyunaBasla = dcGameForm.AddNewProButton(dcGameForm, 'btnOyunaBasla', 'Oyuna Başla');
  clComponent.SetupComponent(
    btnOyunaBasla,
    '{
      "caption" : "Oyuna Başla", 
      "Align" : "Center", 
      "MarginBottom" : 60, 
      "MarginLeft" : 31,
      "Width" : 150,
      "Height" : 50, 
      "RoundHeight" : 7, 
      "RoundWidth" : 2 , 
      "BorderColor" : "#ffffff" , 
      "BorderWidth" : 2,
      "BackgroundColor": "#ffffff",
      "FontStyle":"bold"
    }'
  );
  // Butona tıklama olayını ekleyin
  dcGameForm.AddNewEvent(btnOyunaBasla, tbeOnClick, 'butonaTikla');
  // Oyuncu sayısı değiştiğinde deneme fonksiyonunu çağırın (isteğe bağlı)
  //dcGameForm.AddNewEvent(oyuncuSayisiCmb, tbeOnChange, 'deneme');
  dcGameForm.Run;
}

]]> Wed, 07 Aug 2024 13:07:50 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=829&PID=1505#1505