Скачать: CL | DM;

Class TListBox not found - в чем смысл этой ошибки?   Найти похожие ветки 

← →
tria   (2004-09-06 13:13) [0]

Есть компонет - поле ввода с кнопкой. При щелчке на кнопке появляется ListBox. Сам ListBox создается в конструкторе компонента.
При открытии формы вылетает выше описанная ошибка. Не знаю с какого бока к ней подступится.

---

← →
Amoeba ©   (2004-09-06 13:15) [1]

Наверное, для начала представить свой код в студию.

---

← →
tria   (2004-09-06 13:21) [2]

Смысл написания - компонент, аналогичный КомбоБокс, но в котором OnChange не должно срабатывать при перемещении по открывшемуся списку. Для этого используется сторонний компонет TPBEditBtn. При нажатии на кнопку открывается ЛистБокс, выполняется выбор, ЛистБокс закрывается.

constructor TTriaEdit.Create(AOwner: TComponent);
begin
 Inherited;
 EditStyle:=edstEdit;
 ActLstDisableWhenDropDown:=TList.Create;
 //Создадим fListBox - иначе проблемы в Делфи при редактировании формы
 fListBox:=TListBox.Create(Owner);
 fListBox.Visible:=false;
 If csDesigning in ComponentState then begin
   //Сделаем невидимым листбох в режиме Делфи
   fListBox.Parent:=Pointer(self);
   fListBox.Width:=1;
   fListBox.Height:=1;
 end
 Else fListBox.Parent:=Pointer(Owner);
 fListBox.Style:=lbOwnerDrawFixed;//Для размера
 fListBox.OnDblClick:=OnDblClickListBox;
 fListBox.OnExit:=OnExitListBox;
 fListBox.OnKeyPress:=OnKeyPressListBox;
 fItems:=fListBox.Items;
end;

---

← →
Romkin ©   (2004-09-06 13:26) [3]

В секции initialization надо прописать RegisterClass, тогда найдет

---

← →
tria   (2004-09-06 13:46) [4]

>Romkin
Спасибо.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c