|
#1
|
|||
|
|||
ComboBox в Panel
Уважаемые помогите пожалуста, есть составной компонент
Код:
unit MyPanel; ::::::: ::::::: type TMyPanel = class (TPanel) private FCBox : TComboBox; ::::::::: ::::::::: constructor TMyPanel.Create(AOwner:TComponent); begin inherited Create(AOwner); Height:=58; Width:=170; FCBox:=TComboBox.Create(Self); FCBox.Parent:=Self; FCBox.Top:=6; FCBox.Left:=8; FCBox.Items ???????? end; :::::: :::::: end. Вопрос? как заполнить строки ComboBox Последний раз редактировалось lmikle, 04.05.2011 в 09:06. |
#2
|
||||
|
||||
Код:
FCBox.Items.Add() или FCBox.Items.AddStrings(); Последний раз редактировалось lmikle, 04.05.2011 в 09:06. |
#3
|
|||
|
|||
Цитата:
Это я уже пробывал компелится без ошибок, но кидаешь компонент на форму и сразу выскакивает ошибка Control " has no parent window., ну и компонент неставится на форму. Если не писать список програмно а через инспектор тогда список не отображается(((( |
#4
|
|||
|
|||
Код:
unit MyPanel; ::::::: ::::::: type TMyPanel = class (TPanel) private FCBox : TComboBox; ::::::::: ::::::::: constructor TMyPanel.Create(AOwner:TComponent); published property CBox : TComboBox read FCBox; end; procedure Register; implementation constructor TMyPanel.Create(AOwner:TComponent); begin inherited Create(AOwner); Height:=58; Width:=170; FCBox:=TComboBox.Create(Self); FCBox.Parent:=Self; FCBox.Top:=6; FCBox.Left:=8; end; end. lmikle: пользуемся тегами!!! Последний раз редактировалось lmikle, 04.05.2011 в 09:07. |
#5
|
|||
|
|||
Тема закрыта Спасибо всем!
|