BCB中派生VCL类及动态地创建控件
<P> </P><P> </P>
<P> </P>
<P>以生成一个TMemo的派生类及动态地创建该VCL控件为例。 </P>
<P>Class TMemoEx : public TMemo </P>
<P>{ </P>
<P> . </P>
<P> . </P>
<P>} </P>
<P>extern TMemoEx memoex; </P>
<P> </P>
<P>Class TForm1 : Class TForm </P>
<P>{ </P>
<P>public: </P>
<P> TMemoEx *MemoEx; </P>
<P> . </P>
<P> . </P>
<P>} </P>
<P> </P>
<P>void _fastcall TForm1::FormShow(TObject *Sender) </P>
<P>{ </P>
<P> MemoEx=new TMemoEx(this); </P>
<P> MemoEx->Parent=this; </P>
<P> . </P>
<P> . </P>
<P>} </P>
<P>总之，遵循以下步骤即可： </P>
<P> 类定义; </P>
<P> extern TMemoEx memoex; </P>
<P> TMemoEx *MemoEx; </P>
<P> MemoEx=new TMemoEx(this); </P>
<P> MemoEx->Parent=this; </P>
页:
[1]