Ir para conteúdo
Fórum Script Brasil
  • 0

Como Fazer Isto?


matflavio

Pergunta

Gostaria de saber como faço para montar um tele incial, ou seja, quando clicar no icone da minha aplicação gostaria de primeiro monstrase a tela de usuário (login e senha). Se a senha e o login estiverem correto ir para a tela principal caso contratário dar uma mensagem de senha e login inválido??? Sou iniciante!!!!! Alguém pode me ajudar????

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

É o seguinte cara: você tá lá com a sua aplicação, beleza! Aí você coloca um novo form:

File -> New -> Form. Dê o nome do form de fsenha.

Nesse form você vai colocar uma edit pro cara digitar a senha, um label para informar 'Digite a sua senha' e um butão.

Aí você vai na propriedade do form BorderStyle e muda para BsDialog, procara não dimensionar o form.

Aí você vai na propriedade do form BorderIcons e deixa tudo false, pra não aparecer o botão de fechar no canto do form.

Aí você coloca no evento OnKeyPress da edit o segunite procedimento:

procedure TFSenha.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (key = #13) then 
  begin
    if (edit1.text = senha) then close else ShowMessage('SenhaIncorreta');
  end;
end;
Aí você coloca o Caption do butão = 'Cancelar'. Aí você coloca no evento OnClick do butão o seguinte procedimento:
procedure TSenha.Button1Click(Sender: TObject);
begin
  Halt;
end;
Aí você coloca no evento OnClose do form o seguinte procedimento:
procedure TFSenha.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if not(edit1.text = senha) then halt;
end;
Aí você vai no menu Project -> View Source. Será exibido o código do programa. Aí você retira a linha -> Application.CreateForm(TFsenha,Fsenha); O código deverá ficar mais ou menos assim ->
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {FSenha};
{$R *.res}

begin
  FSenha:=TFSenha.Create(Application);
  FSenha.ShowModal;
  FSenha.Free;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Acho que é só isso. Sendo que senha tem que ser uma variavel ou contante do tipo string. Para maior proteção você pode encriptar a senha pra niguem abrir o exe com hex editor e descobrir. Isso se faz fácilmente escrevendo-se uma função que retorna a senha, ou seja: a função vai executar cálculos matemáticos em cima de constantes do programa de forma a retornar a senha correta, não ficando protanto armazenada no exe. Isso só depende de sua criatividade. Espere ter ajudado. Abraço.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...