Yo propongo algo parecido a la propuesta de
_cero_ con otro enfoque:
Código:
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
TLogin *Log = new TLogin(0);
if(Log->ShowModal() == mrOk)
Application->CreateForm(__classid(TForm1), &Form1);
delete Log;
Application->Run();
}
//.................................................................
Si la salida del Log->ShowModal el mrOk el programa continua, si no, se termina. TLogin se encargará de gestionar si el usuario se autentificó de forma correcta y en ese caso devolverá mrOK.
Código:
void __fastcall TLogin::Button1Click(TObject *Sender)
{
if(Edit1->Text == "1234")
ModalResult = mrOk;
else
ModalResult = mrCancel;
}
Subo un
ejemplo.
Saludos.