Визуальные компоненты...

[Роман1971]

Как мне добавить в компонент родитель, например TPanel, другой визуальный компонент, например типа TButton.
Пример кода:

Код: Выделить всё

type
  TPanel1=class(TPanel)
  Button1: TButton;
  private
  {private declarations}
  protected
  {protected declarations}
  procedure Loaded; override;
  public
  {public declarations}
  published
  {published declarations}
  end;

procedure TPanel1.Loaded;
begin
inherited Loaded;
Button1:=TButton.Create(Application);
Button1.Left:=32;
Button1.Top:=32;
Button1.Show;
end;


Программа компилируется, но при запуске компонент Panel1 оказывается пустым, хотя и выполняется. Компонента Button1 на ней не видно. К свойствам Button1 можно обратиться, если был выполнен метод TButton.Create(Application) - следовательно объект создан, но его не видно...
Я что-то делаю не так?

[Сергей Смирнов]

Программа компилируется, но при запуске компонент Panel1 оказывается пустым, хотя и выполняется. Компонента Button1 на ней не видно. К свойствам Button1 можно обратиться, если был выполнен метод TButton.Create(Application) - следовательно объект создан, но его не видно...
Я что-то делаю не так?

Забыли про Parent. Рекомендую прочесть это.

[Роман1971]

Ок, спасибо.

[v-t-l]

А почему

Код: Выделить всё

Button1:=TButton.Create(Application);

а не

Код: Выделить всё

Button1:=TButton.Create(Self);

?
Тогда и Parent, а может и Show не потребуется. (сейчас негде проверить).

[Attid]

понадобится, owner это не parent