blob: 8414a9d688ca7b762b210401325c4e7b06be868c (
plain)
1
2
3
4
5
6
7
8
9
10
|
{ This example shows how we can setup a static TComboBox }
cbStyle := TComboBox.Create(self);
cbStyle.CanExpandWidth := True;
cbStyle.Items.Add('Windows'); // insert items into the combobox
cbStyle.Items.Add('WindowsXP');
cbStyle.Items.Add('Motif');
cbStyle.Items.Add('ClearLooks');
cbStyle.Items.Add('OpenSoft');
cbStyle.OnChange := @cbStyleChanged; // setup an event handler
cbStyle.ItemIndex := 0; // select the first item
|