Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #8  
Antiguo 26-11-2014
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
En el caso (2) puedes hacer que el formulario de Login sea el principal y el principal lo creas a demanda.

Código Delphi [-]
program Sistema;

uses
  Forms,
  Login in 'Login.pas' {frmLogin},
  Main in 'Main.pas' {frmMain};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TfrmLogin, frmLogin);
  Application.Run;
end.

En el botón OK del formulario Login, si ls credenciales son correctas, escondes el formulario y creas el principal:

Código Delphi [-]
procedure TfrmLogin.btnOkClick(Sender: TObject);
begin
  if (txtUserName.Text = 'barack') and (txtPassword.Text = 'supersecreto') then
  begin
    Hide;
    with Main.TfrmMain.Create(Self) do
      Show;
  end;
end;

En el evento Close del formulario Principal lo destruyes y vuelves a mostrar el de Login:

Código Delphi [-]
procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  Login.frmLogin.Show;
end;

// Saludos
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Comprar una licencia...y luego volver a pagar rretamar Debates 2 07-06-2010 19:50:57
Como puedo luego de abrir un Login, pasar el MainForm al Principal(MDIForm) maxibaco OOP 6 22-09-2007 00:09:57
Apagar, reiniciar y cerrar sesión jorgegetafe Varios 25 05-06-2007 20:28:17
Como reiniciar (cerrar y volver a abrir) mi propio programa?? AFilth Varios 8 11-08-2005 08:20:39
Cerrar sesión y Reiniciar la PC barrauda API de Windows 4 04-07-2005 15:44:27


La franja horaria es GMT +2. Ahora son las 17:41:21.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi