Buenos dias a tod@s!!
Tengo una aplicacion mdi y lo que quiero hacer es que antes de que se ejecute esta, me salga una pantalla que pregunte por una contraseña y usuario. Lo que he hecho es :
Código Delphi
[-]
function TForm1.validarPassword():boolean;
var
correcto : boolean;
begin
if (Edit1.Text = E1) and (Edit2.Text = E2) then
begin
correcto := true;
result := correcto ;
end
else
begin
correcto := false;
showmessage('Mierda');
result := correcto;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if validarPassword() then
begin
Application.Initialize;
Application.CreateForm(TForm2, Form2);
Application.Run;
end;
end;
Todo esto lo hago en el form de la contraseña. Consigo que me salga esta ventana, pero cuando relleno con los datos correctos me da un error :
Cannot create form. No Mdi forms are currently active.
Si alguien puede ayudarme, gracias de antemano