Error al llamar a un form hija

[Thoma]

Gracias ecfisa, el tema me ha quedado claro.
[FONT='Calibri','sans-serif']Entonces según esto, el Form1 siempre tiene que ser el “padre”; ahora bien, ¿cómo puedo hacer para que antes de visualizar el Form1 (padre), me abra el Form2 (para pedir el usuario) y si es correcto entonces pasar a visualizar el Form1 y si no es correcto cerrar la aplicación?[/font]

[Thoma]

Bueno, creo que he encontrado la solución.
He puesto en el evento “onShow” (antes de que el formulario se haga visible) del formulario padre la apertura del formulario “Usuario”.

[ecfisa]

Hola Thoma.

Me alegro que lo hayas resuelto, otra posibilidad es poner en tu poyecto:

Código Delphi [-]
begin
  Application.Initialize;
  Application.CreateForm(TMDIForm, MDIForm);
  Application.ShowMainForm:= False;
  Application.CreateForm(TFrmPassword, FrmPassword);
  FrmPassword.ShowModal;
  Application.ShowMainForm:= True;
  Application.Run;
end;

Donde MDIForm es tu form MDI principal y FrmPassword es el form donde se ingresa usuario y contraseña.

Saludos.

[Thoma]

Gracias ecfisa, he probado de la manera que me indicas y me funciona a la perfección. Pero mi duda ahora es la siguiente: ¿como puedo controlar si tengo que abrir la ventana padre o no?.
Me explico, si en la ventana "passord" se pulsa "Esc" o si cerramos la ventana sin introducir datos no se deberia de abri el Formulario padre.
Luego otra duda que me surge, es ¿donde declaro las variables para que me sirvan para todos los furmularios?

[ecfisa]

Hola Thoma.

¿como puedo controlar si tengo que abrir la ventana padre o no?.

Podes aprovechar a TModalResult que representa el valor que devuelve una ventana modal y hacer algo como:

Código Delphi [-]
uses Forms, 
     Controls,
     ....
begin
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain);
  Application.ShowMainForm:= False;
  with TfrmPassword.Create(nil) do
  try
    if ShowModal = mrOk then
    begin
      Application.ShowMainForm:= True;
      Application.Run;
    end;
  finally
    Free;
  end;
end.

Por ejemplo devolver mrOk solo sí ingresa correctamente el usuario y contraseña. Revisá todos los valores que puede tomar TModalResult en la ayuda de Delphi.

Saludos.

[Thoma]

a ver... no sé porque me ocurre lo siguiente. Si pulso la tecla "Enter" en cualquier edit, automáticamente me abre el form Padre sin pasar por el siguiente edit, pero si pulso la tecla "Tab" si toma el foco el siguiente edit. De hecho con el "enter" no pasa ni por el "onExit"
¿?
con lo cual no puedo controlar el ModalResult.

[ecfisa]

Hola Thoma.

¿ Tenés asignado algún código en los eventos OnKeyPress u OnKeyDown de los Edits o el Form ?

Saludos.

[Thoma]

He probado con esto,

Código Delphi [-]
procedure TPasswordDlg.edtUsuarioKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then edtPassword.SetFocus;

end;

pero ya te digo no pasa ni por keyPress