FTRP

Question

Ola Pessoal td bem???MEu nome � Aryane e estou desenvolvendo  um programa de tecnofeira e estou com alguns probleminhas..Bom vamos la:Antes darei uma breve descri��o do projeto, o FTRP � um sistema de...

Japa · Answer

Ola colega.... Vou responder a primeira pergunta apenas pois preciso ir para o trabalho:
v� no menu Project/View Source
Vai estar mais ou menos desse jeito

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TFmPrincipal, FmPrincipal);
  Application.Run;
end.

Bom como eu acho que vc ja tem criado uma form de logon crie uma variavel global Bolean nela ou na principal tanto faz.. oque vai importar aqui e que a sua form de logon deve manipular para ela ficar verdadeira (permi��o para entrar) e falsa caso contrario
No meu caso criei uma variavel chamada [b:deedd83bcb]Entrar[/b:deedd83bcb]
FmPrincipal � a form principal
FmLogon � a form de logon

{$R *.res}

begin
    Entrar:= False;
    FmLogon:= TFmLogon.Create(Application);
    try
     FmLogon.ShowModal
    finally
     FmLogon.Release;
     FmLogon:= nil;
     end;
    if Entrar= True then
      begin
        if FmPrincipal= nil then
          begin
              Application.Initialize;
              Application.CreateForm(TFmPrincipal, FmPrincipal);
              Application.Run;
          end;
      end;
end.

Bom boa sorte tenho que ir trabalhar ja to atrazaduuuu... fuiz :wink:

F�rum FTRP #289595