关于创建控件数组！
我的一个程序需要大量的edit控件
请问各位师兄如何通过数组来创建它！
谢谢
希望给出代码！！
问题点数：40、回复次数：1Top
1 楼mygodness（狂风）回复于 2002-05-25 01:12:49 得分 40
private: // User declarations
TEdit *myedit[30];
void __fastcall TForm::FormCreate(TObject *Sender)
{
int i;
for(i=0;i<30;i++)
{
myedit[i]=new TEdit(this);
myedit[i]->Name="edit"+IntToStr(i);
myedit[i]->Left=imposition[i][0];
myedit[i]->Top=imposition[i][1];
myedit[i]->Width=imposition[i][2];
myedit[i]->Height=imposition[i][3];
myedit[i]->Parent=this;
myedit[i]->OnKeyPress=MyFunction;
}
void __fastcall TxjdForm::FormClose(TObject *Sender, TCloseAction &Action)
{
Action=caFree;
for(int i=0;i<30;i++)
{
delete myedit[i];
delete mylabel[i];
void __fastcall TForm::FormClose(TObject *Sender, TCloseAction &Action)
{
for(int i=0;i<30;i++)
{
delete myedit[i];
}
...Top
