Esempio n. 1
0
/*
 =======================================================================================================================
 =======================================================================================================================
 */
void __fastcall TForm5::Edit2KeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
	if(Key == 13)
	{
		Button2Click(Sender);
	}
}
Esempio n. 2
0
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
        y0 = (y1 / 2.0) + (rand() % 91 - 45);
        x0 += 4   ;
        Form1->PaintBox1->Canvas->LineTo(x0, y0);
        Form1->Panel2->Height = y0;
        if(x0 > x1)
        {
         Button2Click(Sender);
        }
}
void __fastcall TRegPac::Button1Click(TObject *Sender)
{
  if(MaskEdit1->Text.IsEmpty()||Edit1->Text.IsEmpty()||Edit2->Text.IsEmpty()||Memo1->Text.IsEmpty()||MaskEdit2->Text.IsEmpty()){
    ShowMessage("LLene todos los campos...");
  }else{
    if (fechNac->Date>Date().CurrentDate()-364.25)
    {
      ShowMessage("La fecha de nacimiento no puede ser menor a 1 año");
    }else{
      if(Masc->Checked){
        sexo=true;
      }else{
        sexo=false;
      }
      nuevo.ingresar(MaskEdit1->Text, Edit1->Text, Edit2->Text, sexo, Memo1->Text, MaskEdit2->Text, fechNac->Date.DateString());

      this->Close();
      Button2Click(Sender);
    }
  }
}