📄 20000804007.htm
字号:
<HTML>
<HEAD>
<TITLE>BCB中派生VCL类及动态地创建控件</TITLE>
<META content="MSHTML 5.00.2314.1000" name=GENERATOR>
</HEAD>
<BODY aLink=#FF0000 bgColor=#ffffff leftMargin=0 link=#187800 topMargin=0
vLink=#990099>
<div align="center">
<table width="744" border="0" cellspacing="0" cellpadding="0" height="76">
<tr>
<td>
<p align="center"><font size="3"><b><br>
BCB中派生VCL类及动态地创建控件</b></font>
<p>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 <br>
Class TMemoEx : public TMemo <br>
{ <br>
. <br>
. <br>
} <br>
extern TMemoEx memoex; <br>
<br>
Class TForm1 : Class TForm <br>
{ <br>
public: <br>
TMemoEx *MemoEx; . <br>
. <br>
} <br>
<br>
void _fastcall TForm1::FormShow(TObject *Sender) <br>
{ <br>
MemoEx=new TMemoEx(this); <br>
MemoEx->Parent=this; <br>
. <br>
. <br>
} <br>
总之,遵循以下步骤即可: <br>
类定义; <br>
extern TMemoEx memoex; <br>
TMemoEx *MemoEx; <br>
MemoEx=new TMemoEx(this); <br>
MemoEx->Parent=this;
</td>
</tr>
</table>
</div>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -