TTabControl、TMemo组件（制作一个简单的多文本编辑框）

//在创建窗口的时候设置编辑框的滚动条
void __fastcall TForm2::FormCreate(TObject *Sender)
{
    //Memo1->ScrollBars = ssHorizontal;
    Memo1->ScrollBars = ssBoth;
}
void __fastcall TForm2::Button1Click(TObject *Sender)
{
    OpenDialog1->Options << ofAllowMultiSelect << ofFileMustExist << ofHideReadOnly;
    if(OpenDialog1->Execute())
    {
        int index = TabControl1->Tabs->Add(OpenDialog1->FileName);
        Memo1->Lines->LoadFromFile(TabControl1->Tabs->Strings[index]);
        TabControl1Change(Sender);
    }
}
// 通过点击上面的tabs进行
void __fastcall TForm2::TabControl1Change(TObject *Sender)
{
    Memo1->Lines->LoadFromFile(TabControl1->Tabs->Strings[TabControl1->TabIndex]);
}