------------------------------------------------------
void __ fastcall TForm1 :: Edit4Change (TObject * Sender)
{
/ * Якщо Edit4 не заповнений, кнопка Button1 не активна * /
if (Edit4-> Text. Length () == 0) {-> Enabled=false;
} Button1-> Enabled=true;
}
/ / ----------------------------------------------------------
void __ fastcall TForm1 :: Edit6Change (TObject * Sender)
{
/ * Якщо Edit6 не заповнений, кнопка Button1 не активна * /
if (Edit6-> Text. Length () == 0) {-> Enabled=false;
} Button1-> Enabled=true;
}
/ / ----------------------------------------------------------
void __ fastcall TForm1 :: FormKeyPress (TObject * Sender, char & Key)
{((Key == VK_RETURN) && (Edit1-> Text. Length ()> 0) && (Edit2-> Text. Length ()> 0)
&& (Edit3-> Text. Length ()> 0) && (Edit4-> Text. Length ()> 0)
&& (Edit5-> Text. Length ()> 0) && (Edit6-> Text. Length ()> 0))
{Button1-> Default=True; }
}
/ / ----------------------------------------------------------
