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
  #5  
Antiguo 12-01-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Melissa_12.

Si el form es un inicio de seción a la aplicación, revisa estos enlaces:

Si se trata de una verificación para permitir o negar el ingreso a determinada acción u otro formulario, podes hacer:

Formulario login:
Código Delphi [-]
...
var
  frmLogin: TfrmLogin;

implementation 

(* Aquí declaro las variables Nombre y Password como ejemplo.
   En tu caso, supongo, obtendras los datos de un archivo *)
var
  Nombre  : string = 'Nombre';
  Password: string = 'Password';

procedure TfrmLogin.FormCreate(Sender: TObject);
begin
  BitBtnAceptar.ModalResult  := mrOK;
  BitBtnCancelar.ModalResult := mrAbort;
  EditPwd.PasswordChar:= '*' //(si no deseas mostrar lo que escribe)
end;

procedure TfrmLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if (EditName.Text <> Nombre)or(EditPwd.Text <> Password) then
    ModalResult:= mrAbort;
  Action:= caFree
end;

procedure TfrmLogin.FormDestroy(Sender: TObject);
begin
  frmLogin:= nil;
end;
end.

Formulario que llama previamente a frmLogin para permitir (o no) el acceso a determinada acción:
Código Delphi [-]
procedure TfrmMain.ButtonAccedeClick(Sender: TObject);
begin
  frmLogin:= TfrmLogin.Create(nil);
  if frmLogin.ShowModal = mrOk then
    ShowMessage('Ingresa')  // En tu caso abrir el otro form
  else
    ShowMessage('No ingresa'); 
end;
Tenes que quitar a frmLogin de: Project -> Options -> Forms -> Auto-create forms.

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 12-01-2013 a las 21:17:33.
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
Ocultar exe. _F3R_ API de Windows 3 30-08-2010 08:50:54
Ventanas,Ventanas Mdi=Dolor de cabeza ? IVAND Varios 7 08-05-2006 17:27:24
Ocultar Nathan Varios 2 11-03-2004 17:32:14
Ocultar ventanas en el escritorio roman API de Windows 5 11-02-2004 07:57:44
ocultar botones67 Varios 3 04-10-2003 15:35:37


La franja horaria es GMT +2. Ahora son las 16:20:22.


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