VPF::сделать item of combobox enabled - Форум программистов

saltonik

Дата 9.3.2011, 20:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 23.11.2009

Репутация: нет
Всего: нет

Здравствуйте форумчане! у меня вопрос - можно ли item combobox-a сделать enabled?

Например вот итемы комбобокса:
1
   - 1.1
   - 1.2
   - 1.3
2
  - 2.1
  - 2.2
  - 2.3

Можно ли сделать так чтобы "1" и "2"  были как бы enabled?

p.s. Пробывала так:

Код


case ComboBox1.ItemIndex of
0,4:ComboBox1.ItemIndex:=-1;
end;

не получается(( помогите плииз

Akella

Дата 10.3.2011, 10:24 (ссылка)

(голосов:1)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Цитата(saltonik @ 9.3.2011, 20:38

)

можно ли item combobox-a сделать enabled?

а что, они disabled?

pseud

Дата 10.3.2011, 16:33 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Цитата(saltonik @ 9.3.2011, 20:38

)

Можно ли сделать так чтобы "1" и "2" были как бы enabled?

Наверно имел ввиду "верхние уровни невыбираемые"?
Ну что-то типа делай раз:
- бросаем на форму Combobox1;
- Combobox1.Items =

Цитата

1 qweqweqwe
  1.2 sdfsdfsdf
  1.3 dfsdfsdf
2 cvbcvbcvb
  2.1 sdfsdfsdf

- Combobox1.Style = csOwnerDrawFixed;
- Combobox1.OnDrawItem =

Код


procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  TControlCanvas(ComboBox1.Canvas).UpdateTextFlags;
  if Index >= 0 then
  begin
    if Index in [0,3] then
    begin
      ComboBox1.Canvas.Font.Color := clGray;
      ComboBox1.Canvas.Brush.Color := ComboBox1.Color;
    end;
    ComboBox1.Canvas.FillRect(Rect);
    ComboBox1.Canvas.TextOut(Rect.Left + 2, Rect.Top, ComboBox1.Items[Index]);
  end;
end;

- Combobox1.OnSelect =

Код


procedure TForm1.ComboBox1Select(Sender: TObject);
begin
  if ComboBox1.ItemIndex in [0,3] then
    ComboBox1.ItemIndex := ComboBox1.ItemIndex + 1;
end;

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »