organizar mis formularion - main forms

[ecfisa]

Hola Rofocale.

Una forma sería primero quitar Acceso de Auto-create forms lo que te deja en Auto-create forms:

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.