Form Login

Question

Galera uma duvida!!!!Qual seria a forma correta de criar um form de login e um form Principalsendo q qria q o form Principal fike por tras o form de login...No caso o form Principal no evento Show Car...

Rjun · Answer

Poste o trecho de c�digo em que voc� esta chamando seu form de login....

Output · Answer

Evento FormShow Do form Frincipal[code:1:b7ceff0f56]if frmLogin = nil then   begin   frmLogin:= TfrmLogin.Create(Application);   frmLogin.Show;   end;[/code:1:b7ceff0f56]Evento FormClose do Form Login[code:1:b7ceff0f56]frmLogin:= nil;frmLogin.Free;[/code:1:b7ceff0f56]...

Rjun · Answer

Utilize ShowModal em vez de Show.[code:1:b02ae75d54]if frmLogin = nil then begin   frmLogin:= TfrmLogin.Create(Application);   try    frmLogin.ShowModal;   finally    frmLogin.Release;  end;  end;[/code:1:b02ae75d54]...

Output · Answer

blz [b:2e20150444]Rjun[/b:2e20150444]Eu ja estava fazendo dessa forma q vc mensionou,, o problema q dessa forma ele mostra apenas o form de login.... e qdo o form de login eh fexado ele abre o form principal...eu qria q o form principal fikasse por tras do form de login... mais q os dois forms fikassem visiveis entende...tipow o form principal carrega o form de login, e fika enable:= false;;qdo o cara digita a senha e da ok ele fecha o form de login e deixa o form frincipal como enable:= true;teria alguma dica?...

Rjun · Answer

Declare na �rea PRIVATE do seu form o seguinte:

procedure WmUser(var msg: TMessage); message WM_USER;

Coloque o seguinte c�digo para o m�todo:

procedure TfrmPrincipal.WmUser(var msg: TMessage);
begin
  case Msg.WParam of
    10 : Login;
  end;
end;

procedure Login
begin
  if frmLogin = nil then 
  begin 
    frmLogin:= TfrmLogin.Create(Application); 
    try 
      frmLogin.ShowModal; 
    finally 
      frmLogin.Release; 
    end;  
  end;
end;

N�o testei, mas deve funcionar.

Output · Answer

Fiz desse geito ... mais naum deu certo... o form de login naum foi criado...

sera q to fazendo nhaca?

private
  procedure WmUser(var msg: TMessage); message WM_USER;
  procedure Login;

implementation

{$R *.dfm}

procedure TfrmPrincipal.WmUser(var msg: TMessage);
begin
    case Msg.WParam of
    10: Login;
    end;
end;

procedure tfrmPrincipal.Login;
begin
if frmLogin = nil then
    begin
    frmLogin:= TfrmLogin.Create(Application);
        try
        frmLogin.ShowModal;
        finally
        frmLogin.Release;
        end;
      end;
    end;

Rjun · Answer

Opa. Esqueci de uma coisa. No evento Show do form principal, coloque a seguinte linha:

procedure TForm1.FormShow(Sender: TObject);
begin
  PostMessage(Handle, WM_USER, 10, 0);
end;

Output · Answer

hehe [b:9a7a25e2e2]Rjun[/b:9a7a25e2e2] kra vc eh o maximo... hehe agora deu certinho,, era exatamente issu q eu qria fazer...
Agora 100 qrer abusar,, teria como vc me da uma explicadinha nesse codigo todo kra,,, fikei bm fora!!! heheh desde ja ... agrade�o pela ajuda...

F�rum Form Login #331559