发信人: lofe ()感激生活(), 信区: BorlandDev
标  题: .在程序中动态创建组件
发信站: 哈工大紫丁香 (Mon Sep  4 16:13:30 2000), 转信

Var
MyButton : TButton;

MyButton := TButton.Create(MyForm); // MyForm now "owns" MyButton
with MyButton do
BEGIN
Parent := MyForm; // here MyForm is also the parent of MyButton
height := 32;
width := 128;
caption := 'Here I Am!';
left := (MyForm.ClientWidth - width) div 2;
top := (MyForm.ClientHeight - height) div 2;
END;

--
※ 修改:．haojs 于 Sep  4 16:11:06 修改本文．[FROM: bbs.hit.edu.cn]
--
※ 转寄:．武汉白云黄鹤站 bbs.whnet.edu.cn．[FROM: bbs.hit.edu.cn]

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: haojs.bbs@bbs.whnet.]