4 replies to this topic

[eduarcol]

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

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
   ModalResult := mrOk;
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

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
   Close;
end;

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

delphi

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
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

begin
  Application.Initialize;
  Form2 := TForm2.Create(Application);
     if Form2.ShowModal = mrOk then
     begin
        Application.CreateForm(TForm1, Form1);
        Application.Run;
     end;
 
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.

Attached Files

•  668_7efb69c9301fbcb1bff22391ab2e0b4e8f4910a6.zip   209.22KB   24 downloads

[luk2009]

muy bueno, esperamos tus proximas entregas, gracias

[egostar]

Hola

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

Salud OS

[eduarcol]

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

[Caral]

Hola
Que bueno que te animes y saques un tiempito amigo.
Excelente tuto.
Saludos