Запрет на выбор IITEMS в ComboBox

[NeiL]

Господа программисты, помогите начинающему. Сказали сделать слеедующее: Имеется 2 ComboBox.
В 1-ом и 2-ом содержатся Items: первый, бизнесс, эконом. Как запретить для одного ComboBox выбирать такой же Item как и во 2-ом. (то есть, если в 1-ом выбрано эконом во втотом не должен выбираться аналогичный Item).

[Stanislav]

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

Господа программисты, помогите начинающему. Сказали сделать слеедующее: Имеется 2 ComboBox.
В 1-ом и 2-ом содержатся Items: первый, бизнесс, эконом. Как запретить для одного ComboBox выбирать такой же Item как и во 2-ом. (то есть, если в 1-ом выбрано эконом во втотом не должен выбираться аналогичный Item).

Ну на скорую руку можно так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
ComboBox1.Items[ComboBox1.Itemindex];
ComboBox2.Enabled:=true;

// Изначально сделай ComboBox2.Enabled:=false;

end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
ComboBox2.Items[ComboBox2.Itemindex];
if  ComboBox1.Items[ComboBox1.Itemindex] = ComboBox2.Items[ComboBox2.Itemindex] then

begin

// Верни Выбор 

Showmessage('Нельзя');

end;

  end;
end.

[mutabor]

то есть, если в 1-ом выбрано эконом во втотом не должен выбираться аналогичный Item

что вы понимаете под словами "не должен выбираться"? Убрать его из списка? или при выборе его тут же сменить на другой? Или показать сообщение? Или что-нибудь другое?

В любом случае ключевое свойство для определения - ItemIndex
Например удаление из списка:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Combobox2.Items:=Combobox1.Items;
Combobox2.Items.Delete(Combobox1.ItemIndex);
end;

[NeiL]

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

что вы понимаете под словами "не должен выбираться"? Убрать его из списка? или при выборе его тут же сменить на другой? Или показать сообщение? Или что-нибудь другое?

ПоД словами не должен выбираться планируется возвращать предыдущий Item. (Не в коем случае не выдавать сообщений или удалять Item)

[mutabor]

Все равно не понятно. В любом случае карты вам в руки, принцип надеюсь ясен?
з.ы. А-а, понял. Имхо не лучший выбор, от такого поведения комбобокса пользователь может быть в замешательстве.

[Stanislav]

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

Все равно не понятно. В любом случае карты вам в руки, принцип надеюсь ясен?
з.ы. А-а, понял. Имхо не лучший выбор, от такого поведения комбобокса пользователь может быть в замешательстве.

Полностью солидарен, выбрали а в ответ тишина...... а так предупреждение

p.s NeiL, вас мой вариант не устроил?