Ver Mensaje Individual
  #2  
Antiguo 11-06-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Rofocale.

Una forma sería primero quitar Acceso de Auto-create forms lo que te deja en Auto-create forms:
Cita:
DMDatos
Ventas
Articulos
Luego en el form principal (Ventas) haces:
Código Delphi [-]
procedure TVentas.FormCreate(Sender: TObject);
begin
  with TAcceso.Create(Self) do
    if ShowModal = mrCancel then
      Application.Terminate;
  ...
end;
Como supongo que Acceso es un una ventana donde se pide nombre y contraseña, sería buena idea usar dos TBitButton, uno con la propiedad Kind igual mrOk y el otro igual a mrCancel.
Es decir que si cancela mediante el BitButton, se detecta cuando evaluas ShowModal en Ventas.
Si no ingresa bién nombre o contraseña, pones: ModalResult := mrCancel, será detectado del mismo modo y se terminará la aplicación.

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 11-06-2011 a las 23:08:20.
Responder Con Cita