Что-то типа:
Код:
procedure Form1Create(...);
begin
Combo1.Items.Assign(List1.Items);
Combo2.Items.Assign(List1.Items);
end;
procedure Combo1Change(...); // ну или что там на изменение вызывается.
var
Idx : Integer;
begin
Combo2.Items.Assign(List1.Items);
Idx := Combo2.Items.IndexOf(Combo1.Text);
Combo2.Items.Delete(Idx);
end;
ЗЫ. Это главная идея. Может я не совсем понял задачу.
Смысл:
- при старте заполняем оба комба одинаково из листа.
- При смене значения в первом комбе заного заполняем второй, а потом из него удаляем выбранное значение.