Página de inicio de sesión de programación de Delphi conectada a la página principal

Escribe en el evento OnCreate de Form1 (formulario principal):

procedimiento TForm1.FormCreate(Sender: TObject);

comenzar

Application.ShowMainForm := False; //No mostrar el formulario principal

Form2:=TForm2.Create(nil); //Crear un formulario de inicio de sesión

Form2.ShowModal; //Abrir el formulario no modal

Form2.Free; //Liberar el formulario

Application.ShowMainForm := True

Form1.Show; / Mostrar el formulario principal

end;

Form2 puede agregar juicio de contraseña, pero debe cerrarse después de iniciar sesión.

Por ejemplo:

Hay un botón en Form2 llamado iniciar sesión:

procedimiento TForm2.Button1Click(Sender: TObject);

comenzar

if Contraseña='123456' luego

Cerrar

else

ShowMessage('Contraseña incorrecta');

fin;

Para configurar Form2 a formularios disponibles en Delphi->Proyecto->Opciones->Formularios

Este es un ejemplo que escribí antes