Hola sawesotj.
Cita:
Empezado por sawesotj
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); Application.ShowMainForm:= False; Application.CreateForm(TfrmLogin, frmLogin); if frmLogin.ShowModal = mrOk then begin
Application.ShowMainForm:= True; Application.Run; 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