[builder] динамическое создание контролов[closed]

Slavaga

пишу:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TButton *NewButton = new TButton(this->Handle);
NewButton->Visible = true;
NewButton->Show;
NewButton->Update;
NewButton->Left = 100;
NewButton->Top = 100;
NewButton->Height = 100;
NewButton->Width = 100;
NewButton->Caption = "asd";
}
Видимой реакции - ноль. В чем трабл?

yolki

1. Почитай статью "Жизнь и смерть в run-time"
http://delphi.olympus.ru/dk/helloword/runtime_comp.htm
2. У контрола Parent проставил?

Slavaga

А разве парент не передается конструктору?
TButton *NewButton = new TButton(this->Handle);
или
TButton *NewButton = new TButton(this);
Оба не работают

yolki

так ты только хэндл передаёшь.
парент не выставляется

Slavaga

Работает. А как же конструктор?

Slavaga

спасибо