Var MyButton : TButton; MyButton := TButton.Create(MyForm); // MyForm теперь "обладает" MyButton with MyButton do BEGIN Parent := MyForm; // Выбираем родителей. MyForm "усыновляет" MyButton height := 32; width := 128; caption := 'Я здесь!'; left := (MyForm.ClientWidth - width) div 2; top := (MyForm.ClientHeight - height) div 2; END; |
Inprise также рассказывала об этом в выпусках TechInfo.
Поищите
ti2938.asc Creating Dynamic Components at Runtime
на публичном WWW или FTP сайте компании Inprise. [000057]