Ir al contenido


Foto

Pantalla de ingreso al sistema


  • Por favor identifícate para responder
4 respuestas en este tema

#1 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4.483 mensajes
  • LocationVenezuela

Escrito 11 julio 2009 - 10:15

Muchas veces me han preguntado como poder realizar una pantalla que se muestre antes de ingresar al sistema.

Para poder explicar esto veamos un pequeño ejemplo, desarrollandolo paso a paso.

1.- Creamos una aplicación nueva, por defecto viene con el Form1.

2.- Agregamos un segundo formulario.

3.- En este formulario agregamos dos botones, uno que nos permita entrar y otro que nos permita salir.

4.- En el formulario de entrada colocamos el siguiente codigo:



delphi
  1. procedure TForm2.BitBtn1Click(Sender: TObject);
  2. begin
  3.   ModalResult := mrOk;
  4. end;



Esto nos permite determinar que el formulario modal devuelva un valor ok

Luego en el de salir colocamos la instruccion que nos permita cerrar.



delphi
  1. procedure TForm2.BitBtn2Click(Sender: TObject);
  2. begin
  3.   Close;
  4. end;



5.- Abrimos el archivo DPR, el cual por defecto tendra este codigo:



delphi
  1. begin
  2.   Application.Initialize;
  3.   Application.CreateForm(TForm1, Form1);
  4.   Application.CreateForm(TForm2, Form2);
  5.   Application.Run;
  6. end.



Alli estamos creando los dos formularios junto con ejecutar la aplicacion, lo que nos interesa en este punto es que el Form2 se ejecute al principio y que Form1 sea el principal, para esto no nos queda de otra que crear y ejecutar el form2 manualmente, por lo tanto el DPR quedaria asi:



delphi
  1. begin
  2.   Application.Initialize;
  3.   Form2 := TForm2.Create(Application);
  4.     if Form2.ShowModal = mrOk then
  5.     begin
  6.         Application.CreateForm(TForm1, Form1);
  7.         Application.Run;
  8.     end;
  9.  
  10. end.



En este caso creamos Form2 automaticamente, si el resultado de su ejecución es mrOk entonces se entra al sistema, de lo contrario iriamos al final de la aplicacion.

Para que funcione debemos agregar la libreria Controls al uses del DPR para que reconozca la constante mrOk.

Se aceptan comentarios, la proxima entrega es como validar un usuario, pero realmente podemos hacer cualquier cosa o validación en form2 siempre que devolvamos mrOk cuando queramos entrar en el sistema.

Un formulario modal se cierra automaticamente al asignarle un valor a la propiedad ModalResult.

Archivos adjuntos


  • 0

#2 luk2009

luk2009

    Advanced Member

  • Moderadores
  • PipPipPip
  • 2.040 mensajes
  • LocationSanto Domingo

Escrito 11 julio 2009 - 10:30

muy bueno, esperamos tus proximas entregas, gracias
  • 0

#3 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.446 mensajes
  • LocationMéxico

Escrito 12 julio 2009 - 08:43

Hola

Muy sencillo y práctico amigo eduarcol, que bueno que ya te animaste a publicar tutoriales.

Salud OS
  • 0

#4 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4.483 mensajes
  • LocationVenezuela

Escrito 12 julio 2009 - 12:59

Hola

Muy sencillo y práctico amigo eduarcol, que bueno que ya te animaste a publicar tutoriales.

Salud OS


Hola, es que los animos estan, el tiempo es el que falta, de a poco lo ire engrosando
  • 0

#5 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 12 julio 2009 - 07:22

Hola
Que bueno que te animes y saques un tiempito amigo.
Excelente tuto. (y)
Saludos
  • 0




IP.Board spam blocked by CleanTalk.