|
#1
|
|||
|
|||
ComboBox
Вот какая поставлена задача: необходимо сформировать список ComboBox
так чтобы при запуске в поле был сразу выбран первый элимент! Без этого условия формирую строки в цикле через ComboBox1.Items.Add. Уловка "ComboBox1.Text:=" не прокатил т.к. в этом случае значение строки -1 что никак не соответствует необходимому "0" по условию, пробывал делать разветвление d:=ComboBox1.ItemIndex; if d<0 then d:=0; не помогло! ПОдскажите как решить проблемку!!!! |
#2
|
||||
|
||||
Нет проблем:
combobox1.ItemIndex:=0; |
#3
|
|||
|
|||
Жаль жаль но не подходит, т.к. текст выглядит так:
ComboBox1.Text:='AC-95/16'; ..... combobox1.ItemIndex:=0; d:=ComboBox1.ItemIndex; ListBox1.Clear; Str(d,S); ListBox1.Items.Add(S); В итоге при старте ничего не выводится, при выборе строки из списка нормально показывается номер строчки. Может кто знает как настройки самого ComboBox изменить чтоб решить задачку??? |
#4
|
|||
|
|||
Что вы хотите сделать-то? Выбрать в комбо нужный пункт вам правильно подсказывают:
Код:
if ComboBox1.Items.Count <> 0 then ComboBox1.ItemIndex := N; Код:
S := ComboBox1.Items[ComboBox1.ItemIndex]; if ListBox1.IndexOf(S) = -1 then ListBox1.Items.Add(S); |
#5
|
|||
|
|||
Я хочу чтобы при запуске программы (ComboBox еще не развирачивая) у меня уже был выбран первый элимент ComboBox-а! По умолчанию там чистая строка, а точнее имя комбобокса! Я делал так что присваивал имя комбо бокса названию первой строки, но при этом (если не развертывать сам комбобокс) ниодна строка его не выбрана, и дальше программа не работает!
НА рисунке 1 как должно быть 2 как есть, причем при 1 должна реально быть выбрана первая строчка. |
#6
|
||||
|
||||
у меня Д7
вроде работает |
#7
|
|||
|
|||
Цитата:
В третий раз: вот так сделайте: Код:
procedure TForm1.Create(Sender: TObject); begin .. ComboBox1.ItemIndex := 0; .. end; |
#8
|
||||
|
||||
Да поставьте просто в свойстве самого КомбоБокса изначально ItemIndex в 0
Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#9
|
|||
|
|||
Цитата:
Не часто получается на форум попадать! if ComboBox2.Items.Count > 0 then ComboBox2.ItemIndex := 0; вот что помогло При написании просто ComboBox1.ItemIndex := 0; не подошло т.к. дальше то у меня возможен выбор если все таки нужен не первый вариант!!! Спасибо всем! Отдельное спасибо s0Creator!!! |
#10
|
|||
|
|||
Цитата:
|