//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Umain.h"
#include "Udoc.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFmain *Fmain;
TList * LDoc;
//---------------------------------------------------------------------------
__fastcall TFmain::TFmain(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFmain::MNewClick(TObject *Sender)
{
TFDoc * New = new TFDoc(this);
LDoc->Add(New);
New->Caption = "Документ "+IntToStr(LDoc->Count);
}
//---------------------------------------------------------------------------
void __fastcall TFmain::FormCreate(TObject *Sender)
{
LDoc = new TList();
}
//---------------------------------------------------------------------------