24.11.2024 - Создание компонента во время работы приложения
Inprise также рассказывала об этом в выпусках TechInfo. Поищите ti2938.asc Creating Dynamic Components at Runtime на публичном WWW или FTP сайте компании Inprise.
Код
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;
Опубликовано на сайте:
http://www.coders-library.ru
Прямая ссылка:
http://www.coders-library.ru/index.php?name=news&op=view&id=45