ПАМАГИТЕ!!! как убрать на время из combobox пункты

[mozgobol]

в общем мне надо чтобы при нажатии кнопки из некоторых combobox  убирались пункты или становились недоступными, но при нажатии на другую кнопку они становились снова доступными

[Алексей++]

mozgobol, можно заполнять комбу либо одним списком строк, либо другим

[mozgobol]

а как это сделать?

[Finch]

Насколько помню Delphi. Вроде как в ComboBox списки строятся через экземпляр класса TList . Помоему называется List. Работай с этим  списком. Хелп почитай по TList.

[mozgobol]

был бы хелп на русском другое дело, а так труба

[Алексей++]

mozgobol, ещё вариант (но грубый): две комбы, заполнены по разному. Одна из них скрыта, другая видна. Нажали кнопу - видимость поменялась

[mozgobol]

нее, это не вариан, не дело так.. не красиво

[Finch]

Offtopic:

Эх, говорила мне мама, Учи английский. (с) Фильм "Одиночное плавоние"

Поставлю в угол.

[Алексей++]

Finch, ты тоже не по дельфям?

[Finch]

Года 4 не пишу уже на Дельфях. Просто уже не помню тонкостей. Но работа с списком TList тривиальна.

[x77]

все итемсы у TComboBox хранятся в классе Items: TStrings, имеющим дивное свойство: Text: string.

делаем примерно так:

Код:

const
  csItemsList1: string = '1'#13'2'#13'3';
  csItemsList2: string = 'a'#13'b'#13'c';
...
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin 
  ComboBox1.Items.Text := csItemsList1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ComboBox1.Items.Text := csItemsList1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1.Items.Text := csItemsList2;
end;

по кликам на педали Button1 и Button2 в комбобокс засовывается список соотв. итемов.

итемы в строке разделяются возвратом каретки: #13.

[Igel]

х77, если быть точным, то Items - не в класс, а cвойство. Класс TStrings. Т.е. перефразируем

все итемсы у TComboBox хранятся в классе Items: TStrings,

в следующее:
Доступ к строкам у TComboBox возможен через свойство Items класса TStrings,
) Последнее время болезненно отношусь к формулировкам.

[zubr]

Ну можно и через списки:

Код:

var
  Spisok1:TStringList;
  Spisok2:TStringList;

procedure TForm1.FormCreate(Sender: TObject);
begin 
  ComboBox1.Items.Assign(Spisok1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ComboBox1.Items.Assign(Spisok1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1.Items.Assign(Spisok2);
end;

Или можно удалять и добавлять строки в комбобокс:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 ComboBox1.Items.Delete(2);//удаление строки с индексом 2 (индексация с 0)
 ComboBox1.Items.Insert(2, 'Новая строка');
end;

Можешь скачать res6.narod.ru/help/Help.zip русский Help Архангельского для Delphi6, встраивающийся в среду разработки.  Это не демо-версия, полностью функциональная крякнутая версия.

[mozgobol]

огромное спасибо!!! большушие благодарности!!! отдельный респект за хелп!!! вот терь я рад безумно!!!