Советы по Delphi

         

Создание компонента во время работы приложения


    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]



Содержание раздела