[Drozh]

Ну первое, я бы не стал во второй форме писать этот код...
Просто в кнопке Add поставил бы свойство ModalResult в mrOk а в первой рассматривал то что возвратил ShowModal

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 ComboBox: TComboBox;
begin
 if Form2.ShowModal = mrOk then
 begin
  ComboBox :=
   FindComponent(Format('ComboBox%d', [RadioGroup1.ItemIndex +1 ])) as TComboBox;
  ComboBox.Text := //Text;
  ComboBox.Items.Add(//Text);
 end;
end;

А во втором случае у тебя неразбериха с индексами (да и размести это кнопку на 1 форме)

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
 Index: Integer;
 ComboBox: TComboBox;
begin
 ComboBox :=
   FindComponent(Format('ComboBox%d', [RadioGroup1.ItemIndex +1 ])) as TComboBox;

  if ComboBox.Items.Count > 1 then
  begin
   Index := ComboBox.ItemIndex;
   ComboBox.Items.Delete(Index); // удалили строку Index инкрементировался автоматически
   ComboBox.ItemIndex := Index;
  end
  else
   ShowMessage('Вы хотите удалить последнюю запись');
end;

[Beast]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 Index: Integer;
 ComboBox: TComboBox;
begin
 ComboBox := FindComponent(Format('ComboBox%d', [RadioGroup1.ItemIndex +1 ])) as TComboBox;

 if ComboBox.Items.Count > 1 then
 begin
  Index := ComboBox.ItemIndex;

  if ComboBox.Items.Count = Index+1 then
  begin
   ComboBox.Items.Delete(Index);
   ComboBox.ItemIndex := 0
  end
  else
   ComboBox.Items.Delete(Index);
   ComboBox.ItemIndex := Index;
  end
 else
  ShowMessage('Невозможно удалить последнюю запись!!!');
  ComboBox.SetFocus;
end;

Вторую часть подкорректировал данным образам, все работает. Спасибо всем! Отдельное спасибо Drozh!!!

[Beast]

А почему в ComboBox'ы со свойством Style - csDropDown из файла можно записать информацию, а с другими стилями НЕЛЬЗЯ????

[Drozh]

Потому, что остальные стили не поддерживают изменение списка

[Beast]

Можно тогда как нибудь запретить ввод текста в ComboBox'ы, а оставить только выбор, если свойство Style оставить csDropDown?

[Beast]

Мне необходимо запретить ввод информации с клавиатуры, изменение стиля тут непрокатывает (поле в ComboBox'е сразу становится пустым).

Если в событии OnKeyPress написать:
Key := #0;

Получается что-то вроде того, что мне надо, но как можно запретить вставку из буфера?

[MaryG]

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

Проверь правильность созданного файла, у меня все работает)

У меня тоже всё получилось...а вот как выбрать из Комбобокса нужный атрибут (имя)?

[Страдалецъ]

Сильно, вы бы еще более древнюю тему откопали. Теперь придется всю ее перечитывать.

[Slot]

Есть 5 combobox-ов с определенными значениями. Когда сделан выбор определенной позиции из каждого combobox-а нужно чтобы загрузился определенный avi или mov файл. Помоги плиз

[Лунтик-Некрофил]

Код:

case combobox.ItemIndex of
-1: showmessage('Файл не выбран');
0: загружаешь файл...;
1:  ...;
2: ...;
end;

Если список динамический, то лучше всего обращаться по названию кнопки

Код:

var i:integer;
...
if combobox.itemindex<>-1 then begin
i:=combobox.itemindex;
filename:= combobox.items[i];
//работа с filename
end;

Суть объяснил, далее думаю сам разберёшся, если че - пиши.

[Slot]

Спасибо, но ты объяснил, как работать с одним ComboBox, а у меня их пять. Попробую объянить по другому

ComboBox1 - 1. 2
2. 5
3. 9

ComboBox2 - 1. демонтаж
2. монтаж
3. рекострукция
ComboBox3 - ....
ComboBox4 - ....
ComboBox5 - ....
И т.д.

И при выборе в каждом из них определенной позиции, нужно загрузить определннный файл, формата avi.

П.С. Извини, может глупый вопрос, но я пытаюсь разобраться((. Заранее спасибо.