LoginForm

LoginForm é um tipo de formulário especial usado exclusivamente para fins de login. Se sua aplicação contiver um LoginForm (qualquer formulário que herde de TUniLoginForm), ele será o primeiro formulário exibido quando uma sessão Web iniciar.

Um LoginForm pode ser criado com um uniGUI Wizard seguindo este caminho: File -> New -> Other -> Delphi Projects -> uniGUI for Delphi -> Form.

uniGUI Wizard

Criar um Login Form

Esta ação criará um LoginForm em branco que se parece exatamente com um formulário comum:

Um LoginForm em branco

Exemplo de design de LoginForm

Um LoginForm é um descendente da classe incorporada TUniLoginForm. Cada aplicação só pode ter um LoginForm. Após adicionar um LoginForm, sua aplicação mostrará este formulário quando uma nova sessão iniciar. Você precisa adicionar controles, tratadores de eventos e tudo o que for necessário para implementar a funcionalidade desejada.

O comportamento de login é controlado usando o ModalResult do formulário. Se um LoginForm retornar mrOK, isso significa um login bem-sucedido e um novo MainForm será criado e ativado. Quando ModalResult retornar mrCancel, a sessão será encerrada.

Exemplo (formulário falso com dois botões: um para simular login bem-sucedido, o outro para simular falha):

TUniLoginForm1

procedure TUniLoginForm1.UniButton1Click(Sender: TObject);
begin
  ModalResult := mrOK; // Login é válido então prossiga para o MainForm
end;

procedure TUniLoginForm1.UniButton2Click(Sender: TObject);
begin
  ModalResult := mrCancel; // Login inválido - sair da aplicação
end;

Uma vez que o usuário esteja logado e o MainForm exibido, existem duas maneiras de encerrar a sessão: retornar mrOK como ModalResult para voltar ao LoginForm, ou retornar mrCancel para terminar a sessão. Por motivos de segurança, a sessão existente é sempre encerrada antes de exibir o LoginForm — cada novo login inicia uma nova sessão.

AnteriorMainModule PróximoMainForm