Clomosy | Forum : ComboBox çalışmıyor https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Tue, 28 Apr 2026 19:44:24 +0000 Fri, 02 Aug 2024 14:04:18 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=794 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[ComboBox çalışmıyor : Teşekkür ederim ]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=794&PID=1382#1382 Yazar: aliberkaysasi
Konu: 794
Gönderim Zamanı: 02 Ağustos 2024 Saat 14:04

Teşekkür ederim]]> Fri, 02 Aug 2024 14:04:18 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=794&PID=1382#1382 <![CDATA[ComboBox çalışmıyor : Merhaba Berkay,Aşağıdaki kodu...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=794&PID=1376#1376 Yazar: Developer
Konu: 794
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;
}
]]> Fri, 02 Aug 2024 10:45:37 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=794&PID=1376#1376 <![CDATA[ComboBox çalışmıyor : ComboBox, içerisine itemleri eklediğim...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=794&PID=1373#1373 Yazar: aliberkaysasi
Konu: 794
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');
]]> Fri, 02 Aug 2024 10:14:28 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=794&PID=1373#1373