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
Спасибо.

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