Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Class TListBox not found - в чем смысл этой ошибки? [D7, Win2k]

tria © (2004-09-06 13:13:00)
Есть компонет - поле ввода с кнопкой. При щелчке на кнопке появляется ListBox. Сам ListBox создается в конструкторе компонента.
При открытии формы вылетает выше описанная ошибка. Не знаю с какого бока к ней подступится.

tria (2004-09-06 13:46:00) [1]
>Romkin
Спасибо.

Romkin (2004-09-06 13:26:00) [2]
В секции initialization надо прописать RegisterClass, тогда найдет

tria (2004-09-06 13:21:00) [3]
Смысл написания - компонент, аналогичный КомбоБокс, но в котором 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;

Amoeba (2004-09-06 13:15:00) [4]
Наверное, для начала представить свой код в студию.

Наверх

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