[peresmeshnik]

Уважаемые помогите пожалуста, есть составной компонент

Код:

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

[ryderx34]

Код:

FCBox.Items.Add() или FCBox.Items.AddStrings();

[peresmeshnik]

Сообщение от ryderx34

FCBox.Items.Add() или FCBox.Items.AddStrings()

Это я уже пробывал компелится без ошибок, но кидаешь компонент на форму и сразу выскакивает ошибка Control " has no parent window., ну и компонент неставится на форму.

Если не писать список програмно а через инспектор тогда список не отображается((((

[peresmeshnik]

Код:

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: пользуемся тегами!!!

[peresmeshnik]

Тема закрыта Спасибо всем!