Form de Login antes da aplicação

[Renanbg 1]

Uma vez eu fiz isso só que acabei esquecendoSó preciso fazer um form de login aparecer antes do form principaldae no form de login preciso fazer algo que se a senha for ok ele abre o principal e se a senha for errada informa q esta erradaqualquer ajuda é bem vinda

[marcio.theis 3]

Veja se um dos dois tópicos lhe ajuda:

 

http://forum.imasters.com.br/index.php?showtopic=230297

http://forum.imasters.com.br/index.php?showtopic=223073

 

Ou pode também somente chamar o form de login usando ShowModal, para que fique na frente do form principal...

[Renanbg 1]

Ja tinha visto eles...

 

no meu source esta assim

 

Application.Initialize;  HprevHist := FindWindow(Nil, PChar('Boleto Bancário '));  if HprevHist = 0 then begin  Application.Title := 'Boleto Bancário';  frmsplash:= tfrmsplash.create(application);  frmsplash.show;  frmsplash.refresh;  Application.CreateForm(Tfboleto, fboleto);  frmsplash.free;  Application.Run;  end else  Application.MessageBox('O programa já se encontra aberto, pressione ALT + TAB','Boleto Bancário', MB_ICONINFORMATION + MB_OK);

Onde posso editar para fazer o form aparecer ?

[marcio.theis 3]

Bom, pode ver nos fontes dos programas, vai ter o exemplo mostrando no source .dpr de onde se pode colocar...

Pode ser antes do:

Application.Run;

[Renanbg 1]

ok..vou ver o q consigo aqui

[marcio.theis 3]

Certo, tente fazer algo parecido como nos exemplos, deve de dar certo...

[Rodrigo Miss 1]

Vo te da uma dica malandro!

Faz isso no OnCreate do form principal.. ..

 

procedure TfrmMain.FormCreate(Sender: TObject);begin  frmMain.Show;  frmLogin:= TfrmLogin.Create(Self);  frmLogin.ShowModal;end;

[Renanbg 1]

beleza Rodrigo

 

do seu jeito tbm da certo, mas fiz assim

 

  Application.Initialize;  HprevHist := FindWindow(Nil, PChar('Boleto Bancário RM '));  if HprevHist = 0 then begin  Application.Title := 'Boleto Bancário RM ';  frmsplash:= tfrmsplash.create(application);  frmsplash.show;  frmsplash.refresh;  Application.CreateForm(Tfboleto, fboleto);  Application.CreateForm(Tfrmlogin, frmlogin); ///crio o form de login  frmlogin.ShowModal;  ///faço ele aparecer sobre a tela de splash  frmsplash.free;  Application.Run;  end else  Application.MessageBox('O programa já se encontra aberto, pressione ALT + TAB','Boleto Bancário RM', MB_ICONINFORMATION + MB_OK);

Agora vou tentar trabalhar a programacao dele p ver no que dá