2 FOrms ,Button Click erreignis

Hallo

hab ein Formmain und ein FOrm1 .auf Formmain soll man ein Button Clicken dann kommt Form1 raus soweit alles ok.nun habe ich auf diesen FOrm1 :2 edit Felder (name,passwort),ein Button1,und Memo1 &Listbox.wie kriege ich das hin im FOrmmain nachdem ich Form1->show() hab,dass er solange warten muß bis der User Button1 Clickt und das passwort&Name richtig sind.und daß Der user danach (falls pw name ok sind) weiter Memo1 und Listbox ausfüllt.

hier FOrmmain

void __fastcall TfrmMain::ButtonClick(TObject *Sender)
{

   Position = poScreenCenter;
   Form1->Height=480;
   Form1->Width=700;
   Form1->Show();
   for(;;)
   {
  //
   delay(100);

//??? SOlange warten bis Button1 aus Form1 gecklikt wurde,falls Psw 
//Name richtig weiter im COde von FOrmmain sonst Retry

     ????????????????;

  Weiter im COde...
   ---------------------;
   --------------------;
   ----------------------;

   }

hier Form1

void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (Ed_name->Text == "blabla" && Ed_passwort->Text=="blabla")
    {

       ShowMessage("Success");
       Button1->Visible=false;
       Form1->Show();

     }
else
   {

      ShowMessage("Uknown User or Password,Please Retry ");

   }
}

PuppetMaster2k

Frag doch bei deinem Button (im OnClick-Event) auf Form1 einfach ab, ob die Angaben korrekt sind.

Wenn Angaben korrekt: dann schließen
wenn nicht korrekt: felder leeren und weiter offen lassen.

PAB

Öffne Form1 mal mit "ShowModal()" statt mit "Show()".

Maffe001

Das nächste Mal wär's schön, wenn du ordentliche Sätze baust, damit man dein Problem gleich beim ersten Mal versteht.