ComboBox - отключение Item`ов!!!

[$T@LKER]

Меня интересует такой вопрос - реально ли отключить без удаление из списка в данном элементе определьонные пункты??? Допустим у меня в списке 4 элемента - как мне отключить там скажем 2 послежних!!!??? Реально ли применить к ним скажем что-то типа Enabled=false или Visible=false ???!!!
Заранее спасибо!!!

[Жека-старший]

Думаю так можно

case ComboBox1.ItemIndex of
  2,3:ComboBox1.ItemIndex:=-1;
end;

[$T@LKER]

Думаю так можно

Код:

case ComboBox1.ItemIndex of
  2,3:ComboBox1.ItemIndex:=-1;
end;

О! Большое спасибо! А если пойти дальше - скажем при активации формы заставить из списка исчезнуть или просто сделать недоступными для нажатия их - ну знаете когда кнопка на форме серого цвета и не нажемаеться?! Или такое в делфи не предусмотрено?!

[Жека-старший]

Прям чтобы исчезнуть не знаю. Но если ты пропишешь в обработчике выбора из ComboBox:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case ComboBox1.ItemIndex of
2,3:ComboBox1.ItemIndex:=-1;
end;
end;
То при нажатии, будь то в конце программы, будь то при активации формы пункты 3,4 (2,3) не будут доступны.
Если тебе надо к примеру чтобы при активации нельзя было выбирать эти пункты, то можно обойтись одной переменной.
Допустим при создании формы, признаку присвоить истину, а при нажатии на кнопку, ну или после какого-то действия, после которого должен быть доступен выбор 3,4 (2,3) пунктов, этому признаку присвоить ложь.
Ну к примеру:

......
var 
      Form1:TForm1;
      pr:boolean;
.....................
.....................    
procedure TForm1.FormCreate(Sender: TObject);
begin
  pr:=true;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if pr then
  case ComboBox1.ItemIndex of
  2,3:ComboBox1.ItemIndex:=-1;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  pr:=false;
end;

[$T@LKER]

Про то как организовать

case ComboBox1.ItemIndex of
  2,3:ComboBox1.ItemIndex:=-1;
end;

єто то мне понятно! Я просто думал можна сделать то о чём я писал но єто наверное я слишком много хочу!!!))) Хотя.....думаю можна былобы програмно удалить и добавить нужное количество строк в комбобокс!!! И я бы полчил нужный мне результат!! Наверное стоит попробывать!!!))
Всё равно спасибо)!

[Жека-старший]

Удалять программно можно, если так, то вот.

ComboBox1.Items.Delete(2);//удаляет строку в скобках
ComboBox1.Items.Add('строка');

я не так понял просто

[Жека-старший]

............

[Жека-старший]

еще есть ComboBox1.items.Insert(index:intege r; Str:string);
ComboBox1.Items.Insert(1,'Привет');
все строки начиная с 1 сдвинет вниз, и стане на 1-ую Привет

[$T@LKER]

Вобщем придумать можно что-то)))!