Formularios MDI
Hola.
Yo hago lo siguiente en mis programas: MI forma principal es MDIForm y las ventas hijas MDIChild y las ventanas modales Normal, entre estas ultimas la ventana de Login.
En el evento onshow de la ventana principal llamo a una funcion que muestra la pantalla de login, verifica los derechos de acceso del usuario y devuelve True si el usuario tiene acceso o FAlse en caso contrario. Algo asi:
procedure TMain.FormShow(Sender: TObject);
begin
if not FuncionLogin() then
begin
Application.Terminate;
exit;
end;
// el resto del codigo de formshow
....
end;
Espero que te sirva.
Saludos
|