Unit2.cpp

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

#include <vcl.h>

#pragma hdrstop

#include "Unit2.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm2 *Form2;

class Unit2

{

public:

void FormActivate();

void Edit1Change();

};

Unit2 unit;

void Unit2::FormActivate()

{

Form2->Edit1->Clear();

Form2->Edit1->SetFocus();

}

void Unit2::Edit1Change()

{

if(Form2->Edit1->Text.Length()>0)

Form2->Button1->Enabled=true;

else

Form2->Button1->Enabled=false;

}

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

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm2::FormActivate(TObject *Sender)

{

unit.FormActivate();

}

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

void __fastcall TForm2::Edit1Change(TObject *Sender)

Завершення додатку 2.

{

unit.Edit1Change();

}

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

void __fastcall TForm2::Edit1KeyPress(TObject *Sender, char &Key)

{

if((Key==VK_RETURN)&&(Edit1->Text.Length()>0))

Button1->SetFocus();

}

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

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit3.h"

#include "Unit3.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm3 *Form3;

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

__fastcall TForm3::TForm3(TComponent* Owner)

: TForm(Owner)

{

}

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