发信人: lofe ()感激生活(), 信区: BorlandDev
标  题: [CB]BCB中派生VCL类及动态地创建控件 (转载)
发信站: 哈工大紫丁香 (Sun Sep  3 07:56:10 2000), 转信

【 原文由 Zeemon 所发表 】
以生成一个TMemo的派生类及动态地创建该VCL控件为例。
Class TMemoEx : public TMemo
{
 .
 .
}
extern TMemoEx memoex;

Class TForm1 : Class TForm
{
public:
 TMemoEx   *MemoEx;
 .
 .
}

void _fastcall  TForm1::FormShow(TObject *Sender)
{
 MemoEx=new TMemoEx(this);
 MemoEx->Parent=this;
 .
 .
}
总之，遵循以下步骤即可：
 类定义;
 extern TMemoEx memoex;
 TMemoEx   *MemoEx;
 MemoEx=new TMemoEx(this);
 MemoEx->Parent=this;
  

--
※ 修改:．haojs 于 Sep  3 07:53:48 修改本文．[FROM: bbs.hit.edu.cn]
--
※ 转寄:．武汉白云黄鹤站 bbs.whnet.edu.cn．[FROM: bbs.hit.edu.cn]

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