[Sheva21]

Вот какая поставлена задача: необходимо сформировать список ComboBox
так чтобы при запуске в поле был сразу выбран первый элимент!
Без этого условия формирую строки в цикле через ComboBox1.Items.Add.
Уловка "ComboBox1.Text:=" не прокатил т.к. в этом случае значение строки -1 что никак не соответствует необходимому "0" по условию, пробывал делать разветвление d:=ComboBox1.ItemIndex; if d<0 then d:=0;
не помогло! ПОдскажите как решить проблемку!!!!

[Dux]

Нет проблем:

combobox1.ItemIndex:=0;

[Sheva21]

Жаль жаль но не подходит, т.к. текст выглядит так:
ComboBox1.Text:='AC-95/16';
.....
combobox1.ItemIndex:=0;
d:=ComboBox1.ItemIndex;
ListBox1.Clear;
Str(d,S);
ListBox1.Items.Add(S);

В итоге при старте ничего не выводится, при выборе строки из списка нормально показывается номер строчки.
Может кто знает как настройки самого ComboBox изменить чтоб решить задачку???

[Rosenkrantz]

Что вы хотите сделать-то? Выбрать в комбо нужный пункт вам правильно подсказывают:

Код:

if ComboBox1.Items.Count <> 0 then
  ComboBox1.ItemIndex := N;

Добавить в ListBox строку, выбранную в комбо:

Код:

S := ComboBox1.Items[ComboBox1.ItemIndex];
if ListBox1.IndexOf(S) = -1 then
  ListBox1.Items.Add(S);

Это если с проверкой на дублирование строк в списке. Если без проверки - if не нужен.

[Sheva21]

Я хочу чтобы при запуске программы (ComboBox еще не развирачивая) у меня уже был выбран первый элимент ComboBox-а! По умолчанию там чистая строка, а точнее имя комбобокса! Я делал так что присваивал имя комбо бокса названию первой строки, но при этом (если не развертывать сам комбобокс) ниодна строка его не выбрана, и дальше программа не работает!

НА рисунке 1 как должно быть 2 как есть, причем при 1 должна реально быть выбрана первая строчка.

[s0Creator]

у меня Д7
вроде работает

[Rosenkrantz]

Сообщение от Sheva21

Я хочу чтобы при запуске программы (ComboBox еще не развирачивая) у меня уже был выбран первый элимент ComboBox-а!

Вы, пардон муа, вообще ответы читаете, которые вам тут пишут?
В третий раз: вот так сделайте:

Код:

procedure TForm1.Create(Sender: TObject);
begin
  ..
  ComboBox1.ItemIndex := 0;
  ..
end;

и получите желаемое.

[Yurk@]

Да поставьте просто в свойстве самого КомбоБокса изначально ItemIndex в 0

[Sheva21]

Сообщение от Rosenkrantz

Вы, пардон муа, вообще ответы читаете, которые вам тут пишут?
В третий раз: вот так сделайте:

Код:

procedure TForm1.Create(Sender: TObject);
begin
  ..
  ComboBox1.ItemIndex := 0;
  ..
end;

и получите желаемое.

Ответы я читаю Спасибо!

Не часто получается на форум попадать!

if ComboBox2.Items.Count > 0 then ComboBox2.ItemIndex := 0;
вот что помогло
При написании просто ComboBox1.ItemIndex := 0; не подошло т.к. дальше то у меня возможен выбор если все таки нужен не первый вариант!!!
Спасибо всем!
Отдельное спасибо s0Creator!!!

[Rosenkrantz]

Ответы я читаю Спасибо!

Не часто получается на форум попадать!

Я не об этом говорил. Вам про ItemIndex := 0 написали в первом же ответе и писали потом еще дважды.