Umain.cpp

//---------------------------------------------------------------------------

#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();

}

//---------------------------------------------------------------------------