2．添加子窗体的事件代码

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

　　（2）为子窗体的菜单项添加代码

void __fastcall TChildFrm::New1Click(TObject *Sender)

{

MDIFrm->New1Click(Sender); //新建文件，可以直接调用主窗体事件处理函数

}

void __fastcall TChildFrm::Open1Click(TObject *Sender)

{

MDIFrm->Open1Click(Sender); //打开文件，可以直接调用主窗体事件处理函数

}

void __fastcall TChildFrm::Save1Click(TObject *Sender)

{

if(SaveDialog1->Execute())

{

RichEdit1->Lines->SaveToFile(SaveDialog1->FileName+".txt");//把RichEdit的内容保

//存到文件

}

}

void __fastcall TChildFrm::Copy1Click(TObject *Sender)

{

RichEdit1->CopyToClipboard(); //把RichEdit中选中的内容拷贝到剪切板

}

void __fastcall TChildFrm::Cut1Click(TObject *Sender)

{

RichEdit1->CutToClipboard(); //把RichEdit中选中的内容剪切到剪切板

}

void __fastcall TChildFrm::Paste1Click(TObject *Sender)

{

RichEdit1->PasteFromClipboard(); //把剪切板中的内容粘贴到RichEdit的当前位置

}

　　MDI应用程序在缺省的情况下，执行关闭操作时并不真正关闭子窗口，而仅仅是最小化它。因此子窗口关闭时，要首先设置其Action属性。

void __fastcall TChildFrm::FormClose(TObject *Sender, TCloseAction &Action)

{

Action=caFree; // 把它的Action设置为caFree

}
www.goodsgy.com

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