| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Реакция combobox

Infinityx93 ©   (2007-05-17 13:58:00) 

Помогите пожалуйста, заполняю combobox, оч надо при выборе определенного элемента из списка, что бы запускалась какая-нибудь процедура.

Нашел в Сети:
Type
  TComboCracker = class(TCombobox);

procedure SetComboboxIndex(ACombobox: TCombobox; Index: Integer);
begin
  ACombobox.ItemIndex := Index;
  TCombocracker(ACombobox).Click;
end;
по идее как раз для меня но не понимаю как пользоваться =(
СПАСИБО.

---

{RASkov}   (2007-05-17 14:53:00) [1]

> [2] Infinityx93 ©   (17.05.07 14:30)
> только не понял зачем -1 :fail???

Если в ComboBox1 ничего не выбрано, то.... обработай так как тебе нужно.

---

Infinityx93   (2007-05-17 14:30:00) [2]

СПАСИБО ОГРОМНОЕ, только не понял зачем -1 :fail???

---

tesseract   (2007-05-17 14:11:00) [3]


procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 case Combobox1.ItemIndex of
 -1:    fail;
 0:     proc1;
 1:     proc2;
 2:     proc3;

 end;
end;


---

Наверх