C++ ЕНФ (3семестр) / LABA_2 / 2.1.1 / InputForm

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

#include <vcl.h>
#pragma hdrstop

#include "InputForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TInputForm3 *InputForm3;
//---------------------------------------------------------------------------
__fastcall TInputForm3::TInputForm3(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TInputForm3::Button1Click(TObject *Sender)
{
 //bool q=false;
//while(!q){
 if(Check(InputForm3->ivax)&&Check(InputForm3->ivay)&&
    Check(InputForm3->ivaz)&&Check(InputForm3->ivbx)&&
    Check(InputForm3->ivby)&&Check(InputForm3->ivbz))
   /*{
    q=true;
   } */

   //}
   //Vectors.ax=StrToFloat(InputForm3->ivax->Text);
   //InputForm3->Button1->Caption="";
   //InputForm3->ModalResult=mrOk;
   //InputForm3->Caption="Input";
   {
    /*ResultForm4->lres->Caption=FloatToStr(
                      StrToFloat(InputForm3->ivax->Text)*
                      StrToFloat(InputForm3->ivbx->Text)+
                      StrToFloat(InputForm3->ivay->Text)*
                      StrToFloat(InputForm3->ivby->Text)+
                      StrToFloat(InputForm3->ivaz->Text)*
                      StrToFloat(InputForm3->ivbz->Text));*/
    InputForm3->Visible=false;
   }
   //Close();
}
//---------------------------------------------------------------------------
void __fastcall TInputForm3::Button2Click(TObject *Sender)
{
 //Close();
 InputForm3->ivax->Text=FloatToStr(bax);
 InputForm3->ivay->Text=FloatToStr(bay);
 InputForm3->ivaz->Text=FloatToStr(baz);
 InputForm3->ivbx->Text=FloatToStr(bbx);
 InputForm3->ivby->Text=FloatToStr(bby);
 InputForm3->ivbz->Text=FloatToStr(bbz);
 InputForm3->Visible=false;
}
//---------------------------------------------------------------------------
void __fastcall TInputForm3::FormCreate(TObject *Sender)
{
 bax=StrToFloat(InputForm3->ivax->Text);
 bay=StrToFloat(InputForm3->ivay->Text);
 baz=StrToFloat(InputForm3->ivaz->Text);
 bbx=StrToFloat(InputForm3->ivbx->Text);
 bby=StrToFloat(InputForm3->ivby->Text);
 bbz=StrToFloat(InputForm3->ivbz->Text);
 //InputForm3->Button1->Caption="OK";
 //resbtnok=false;
}
//---------------------------------------------------------------------------



void __fastcall TInputForm3::ivaxKeyPress(TObject *Sender, char &Key)
{
if(Key!='0'&&Key!='1'&&Key!='2'&&Key!='3'&&Key!='4'&&Key!='5'&&Key!='6'&&Key!='7'&&Key!='8'&&Key!='9'&&Key!='-'&&Key!=','&&Key!='.')
      {Key=0;}        
}
//---------------------------------------------------------------------------

void __fastcall TInputForm3::ivayKeyPress(TObject *Sender, char &Key)
{
if(Key!='0'&&Key!='1'&&Key!='2'&&Key!='3'&&Key!='4'&&Key!='5'&&Key!='6'&&Key!='7'&&Key!='8'&&Key!='9'&&Key!='-'&&Key!=',')
      {Key=0;}        
}
//---------------------------------------------------------------------------


void __fastcall TInputForm3::ivazKeyPress(TObject *Sender, char &Key)
{
if(Key!='0'&&Key!='1'&&Key!='2'&&Key!='3'&&Key!='4'&&Key!='5'&&Key!='6'&&Key!='7'&&Key!='8'&&Key!='9'&&Key!='-'&&Key!=',')
      {Key=0;}        
}
//---------------------------------------------------------------------------


void __fastcall TInputForm3::ivbxKeyPress(TObject *Sender, char &Key)
{
if(Key!='0'&&Key!='1'&&Key!='2'&&Key!='3'&&Key!='4'&&Key!='5'&&Key!='6'&&Key!='7'&&Key!='8'&&Key!='9'&&Key!='-'&&Key!=',')
      {Key=0;}        
}
//---------------------------------------------------------------------------



void __fastcall TInputForm3::ivbzKeyPress(TObject *Sender, char &Key)
{
if(Key!='0'&&Key!='1'&&Key!='2'&&Key!='3'&&Key!='4'&&Key!='5'&&Key!='6'&&Key!='7'&&Key!='8'&&Key!='9'&&Key!='-'&&Key!=',')
      {Key=0;}        
}
//---------------------------------------------------------------------------

void __fastcall TInputForm3::ivbyKeyPress(TObject *Sender, char &Key)
{
if(Key!='0'&&Key!='1'&&Key!='2'&&Key!='3'&&Key!='4'&&Key!='5'&&Key!='6'&&Key!='7'&&Key!='8'&&Key!='9'&&Key!='-'&&Key!=',')
      {Key=0;}
}
//---------------------------------------------------------------------------

void __fastcall TInputForm3::FormActivate(TObject *Sender)
{
 bax=StrToFloat(InputForm3->ivax->Text);
 bay=StrToFloat(InputForm3->ivay->Text);
 baz=StrToFloat(InputForm3->ivaz->Text);
 bbx=StrToFloat(InputForm3->ivbx->Text);
 bby=StrToFloat(InputForm3->ivby->Text);
 bbz=StrToFloat(InputForm3->ivbz->Text);
}
//---------------------------------------------------------------------------