Clomosy | Forum : ComboBox Seçili Değer Atama

var

MyForm:TclForm;

testCombo : TClComboBox;

testLabel :TClLabel;

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);

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(MyForm,'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');

testCombo.ItemIndex = 3;//Seçilen indesk

MyForm.AddNewEvent(testCombo,tbeOnChange,'ComboSelected');

MyForm.Run;

}