|
|
|
|
Создание компонента во время работы приложения
|
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]
|
|
|
|
|