Formlulario Login/Pass y Form Principal

[mantraxer21]

Estimados:

Tengo una muy pequeña aplicación, para poder hacer funcionar Login y Clave y luego de ello que se vaya al Formulario Principal.

Realidad:

FormLogin (fsNormal)
FormPrincipal (fsMDIForm)

Código del Boton Ingresar del Formulario LOGIN

Código Delphi [-]
procedure TForm1.IngresarClick(Sender: TObject);
var form : TMainForm;
begin

qLogin.close;
qlogin.ParamByName('txtlogin').AsString:=Login.Text;
qlogin.ParamByName('txtclave').AsString:=Clave.Text;
//Validaciones.Validate;

qlogin.Open;
if qlogin.Eof then begin
  MessageDlg('Usuario incorrecto, vuelva a intentarlo.',mtError,[mbOk],0);
    exit;
end;
FormPrincipal.Tag:=1;
  self.Hide;
       FormPrincipal.StatusBar1.Panels[1].text:=qLoginNOMBRE_COMPLETO.text;
       Application.MessageBox( 'Bienvenido al Sistema',
  MB_ICONINFORMATION );
    Application.CreateForm(TFormPrincipal, FormPrincipal);
    FormPrincipal.Tag:=0;
    Principal.FormPrincipal.show;

En la última línea invoca al formulario Principal, el tema está todo bien, pero en el Formulario Principal, en un botón que llama a un "Formulario Hijo", da un error diciendo que no está activo.

Alguien puede ayudar con esto ???

Saludos Cordiales

[ecfisa]

Hola mantraxer21.

Correcto. Pero ayudaría más si pusieras la llamada al form hijo y el código mediante el cuál lo mostras.

Un saludo.

[mantraxer21]

Hola, gracias por responder....

Por ejemplo un boton está programado asi.

Código Delphi [-]
procedure TFormPrincipal.GraficoClick(Sender: TObject);
Var FormGrafico :TFormGraficoAgenda;
begin

  FormGrafico :=TFormGraficoAgenda.Create(Self);
  FormGrafico.Show;

[ecfisa]

Hola mantraxer21.

Lo siento, he intentado entender la lógica de la apertura de los forms basándome en tu código y no lo logro. No puedo enteder el papel que juegan Form1, MainForm y Principal.

Es decir, TFormPrincipal es el MDIForm y TFormGraficoAgenda es el MDIChild. ¿ Pero que son Form1, MainForm y Principal ?


Un saludo.

[mantraxer21]

Hola Gracias

El Form1 = Formulario de Login
El MainForm y FormPrincipal = FormPrincipal

La equivocación era por el cambio de código...

Form1 = Login
FormPrincipal = Formulario Principal de Opciones del Sistema
FormGraficoAgenda = Formulario que permite graficar las tenciones agendadas.

Esos participan...

[ecfisa]

Hola mantraxer21.

Entonces si no entiendo mál tenes:

• Form1 : fsNormal
• FormPrincipal: fsMDIForm
• FormGraficoAgenda: fsMDIChild

Lo que hay que tener en claro que en una aplicación MDI, la ventana principal siempre debe ser un MDIForm.
Y si la primera ventana que se crea en tu aplicación es Form1 (es decir que es la ventana principal), no va a funcionar.

Una solución es abrir tu proyecto y organizarlo así:

Código Delphi [-]
begin
  Application.Initialize;
  Application.CreateForm(TFormPrincipal, FormPrincipal); // Crear MDIForm
  Application.FormPrincipal:= False;                     // Ocultar MDIForm
  Application.CreateForm(TForm1, Form1);                 // Crear login
  Form1.ShowModal;                                       // Mostrar login
  Application.ShowMainForm:= True;                       // Mostrar MDIForm 
  Application.Run;
end;

En este enlace vas a encontrar información útil sobre la creación de aplicaciones MDI.

Un saludo.