三．在主窗体和子窗体中加入代码

　　1．添加主窗体的事件代码

　　（1）在菜单【File|Include Unit Hdr…】中把子窗体的头文件包含进主窗体，以便于主窗体对子窗体进行访问。



　　（2）菜单项【File|New】用于按照ChildFrm窗体模板新建一个子窗体。

void __fastcall TMDIFrm::New1Click(TObject *Sender)

{

TChildFrm *NewChildFrm=new TChildFrm(this);

NewChildFrm->Caption=NewChildFrm;

}

　　（3）菜单项【File|Open】用于新建一个ChildFrm窗体并将已有的文件的内容添加到此窗体中。

void __fastcall TMDIFrm::Open1Click(TObject *Sender)

{

if(OpenDialog1->Execute())

{

TChildFrm *NewChildFrm=new TChildFrm(this);

NewChildFrm->RichEdit1->Lines->LoadFromFile(OpenDialog1->FileName);

NewChildFrm->Caption=ExtractFileName(OpenDialog1->FileName);

}

}

www.goodsgy.com

上一页  [1] [2] [3] [4] [5] [6]  下一页