Ver Mensaje Individual
  #4  
Antiguo 31-01-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
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 sawesotj.
Cita:
Empezado por sawesotj Ver Mensaje
tengo un proyecto en el cual inicio con una forma para hacer login llamada flogin, luego despues de validar credenciales llama a otra form llamada fmenu, la cual asu vez manda llamar a mas formas dependiendo de la seleccion en el menu, ...
Podrías hacer,
Código Delphi [-]
program Project1; 
...
uses
  Forms,
  Controls,
  ...;
begin
  Application.Initialize;
  Application.CreateForm(TfrmMenu, frmMenu);   // frmMenu es el principal
  Application.ShowMainForm:= False;            // no mostrar al iniciar
  Application.CreateForm(TfrmLogin, frmLogin); //  crear form login
  if frmLogin.ShowModal = mrOk then            // ¿ todo ok ?
  begin
    Application.ShowMainForm:= True;           // mostrar al iniciar
    Application.Run;                           // ejecutar
  end;
end.

Y como ejemplo, en el formulario de validación algo como:
Código Delphi [-]
...
procedure TfrmLogin.btnValidarClick(Sender: TObject);
begin
  if EditPwd.Text = 'password' then
    ModalResult:= mrOk
  else
    ModalResult:= mrAbort;
end;

Saludos
__________________
Daniel Didriksen

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