ComboBox çalışmıyor

     ComboBox, içerisine itemleri eklediğim halde açılmıyor. Değişken tanımlaması da yaptım ama açılmıyor.

 bookCategoryComboBox = adminForm.AddNewProComboBox(adminPanel, 'bookCategoryComboBox');
  bookCategoryComboBox.Align = alCenter;
  bookCategoryComboBox.Height = 30;
  bookCategoryComboBox.Width = 160;
  bookCategoryComboBox.Margins.Top = 10;
  bookCategoryComboBox.Margins.Left = 20;

  bookCategoryComboBox.AddItem('Roman','01');
  bookCategoryComboBox.AddItem('Bilim Kurgu','02');
  bookCategoryComboBox.AddItem('Tarih','03');

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
aliberkaysasi Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 24 Temmuz 2024 Durum: Aktif Değil Puanlar: 17	Mesaj Seçenekleri Yanıt Yaz Alıntı aliberkaysasi Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: ComboBox çalışmıyor Gönderim Zamanı: 02 Ağustos 2024 Saat 10:14
	ComboBox, içerisine itemleri eklediğim halde açılmıyor. Değişken tanımlaması da yaptım ama açılmıyor. bookCategoryComboBox = adminForm.AddNewProComboBox(adminPanel, 'bookCategoryComboBox'); bookCategoryComboBox.Align = alCenter; bookCategoryComboBox.Height = 30; bookCategoryComboBox.Width = 160; bookCategoryComboBox.Margins.Top = 10; bookCategoryComboBox.Margins.Left = 20; bookCategoryComboBox.AddItem('Roman','01'); bookCategoryComboBox.AddItem('Bilim Kurgu','02'); bookCategoryComboBox.AddItem('Tarih','03');
	berkay

Developer Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Forum Yöneticisi Kayıt Tarihi: 14 Haziran 2023 Durum: Aktif Değil Puanlar: 354	Mesaj Seçenekleri Yanıt Yaz Alıntı Developer Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(1) Alıntı Cevapla Gönderim Zamanı: 02 Ağustos 2024 Saat 10:45
	Merhaba Berkay, Aşağıdaki kodu inceler misin: var MyForm:TclForm; testCombo : TclComboBox; testLabel :TClLabel; adminPanel:TCLPanel; void ComboSelected; var strValue,strKey,strKey2 : String; { strValue = testCombo.GetValueIndex(testCombo.ItemIndex); strKey = testCombo.GetItemIndex(testCombo.ItemIndex); strKey2 = testCombo.Items[testCombo.ItemIndex]; ShowMessage('strValue : '+strValue); //value1 ShowMessage('strKey : '+strKey); //key ShowMessage('strKey2 : '+strKey2); //key ShowMessage('testCombo.ItemIndex : '+IntToStr(testCombo.ItemIndex)); //index } { MyForm = TclForm.Create(Self); adminPanel = MyForm.AddNewPanel(MyForm,'adminPanel'); adminPanel.Align = alCenter; testLabel= MyForm.AddNewLabel(MyForm,'testLabel','Select the day'); testLabel.Align=alMostTop; testLabel.StyledSettings = ssFamily; testLabel.TextSettings.FontColor = clAlphaColor.clHexToColor('#820000'); testLabel.TextSettings.Font.Size=20; testLabel.Width = 150; testLabel.Height = 25; testLabel.Margins.Top=50; testLabel.Margins.Left =50; testLabel.Margins.Right =50; testCombo = MyForm.AddNewComboBox(adminPanel,'testCombo'); testCombo.Align = alTop; testCombo.Width = 150; testCombo.Margins.Top=10; testCombo.Margins.Left =50; testCombo.Margins.Right =50; testCombo.AddItem('Monday','01'); testCombo.AddItem('Tuesday','02'); testCombo.AddItem('Wednesday','03'); testCombo.AddItem('Thursday','04'); testCombo.AddItem('Friday','05'); testCombo.AddItem('Saturday','06'); testCombo.AddItem('Sunday','07'); MyForm.AddNewEvent(testCombo,tbeOnChange,'ComboSelected'); MyForm.Run; }

aliberkaysasi Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 24 Temmuz 2024 Durum: Aktif Değil Puanlar: 17	Mesaj Seçenekleri Yanıt Yaz Alıntı aliberkaysasi Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 02 Ağustos 2024 Saat 14:04
	Teşekkür ederim
	berkay