Erro ao validar login

[alexandre_abadeParticipante]

Existe a possibilidade de fazer login no componente se usar o form de login dele que fazer o login pela minha aplicação usando somente as regras de validações do componente e usando as configurações ele para bloquear os componentes

[Giovani Da CruzMestre]

Sim, é possível criar um formulário personalizado para login.

Por exemplo, crei um novo form, coloque campos para informar o usuário e senha. Coloque um botão validar e crie uma propriedade do Tipo User Control.
Ex: property UserControl: TUserControl.

No clique do botão validar você pode fazer assim:

if UserControl.VerificaLogin(EdtLogin.Text, EdtSenha.Text) = 0 then
begin
    // login ok
end
else
begin
    // erro login
end;

E por fim, para o componente saber que precisar usar o seu formulário, faça o seguinte: No evento OnCustomLoginForm do userControl informe a ele o seu form.

Veja este exemplo:

procedure TFrmPrincipal.UserControl1CustomLoginForm(Sender: TObject;
  var CustomForm: TCustomForm);
begin
  CustomForm := TfrmLogin.Create(Application);
  TfrmLogin(CustomForm).UserControl := Self.UserControlMain;
end;

[Fabio MatteParticipante]

Como completo meu código aqui

 private
    { Private declarations }

  property UserControl: TUserControl;

  public
    { Public declarations }

  end;

ele diz que está faltando alguma coisa nessa property e eu nao estou conseguindo fazer, vc tem um exemplo ou pode completar pra mim ter uma ideai.

[AdministradorMestre]

Você precisa colocar os Gets e Sets.

Exemplo:

  
  TForm1 = class(TForm)
    UserControl1: TUserControl;
  private
    FUserControl: TUserControl;
  public
    property UserControl: TUserControl read FUserControl write FUserControl;
  end;

Além disso, é necessário estar declarado UCBase na seção uses.

[Fabio MatteParticipante]

Funcionou perfeitamente obrigado.

[Fabrício FerreiraParticipante]

Bom dia, usei seu exemplo para tentar implementar a tela de login no meu sistema, porém o delphi não acha “UserControlMain”, estou usando delphi seattle, pode me ajudar?

[Bruno EduardoParticipante]

Bom dia estou com o mesmo problema do Fabrício não está achando o UserControlMain.

[Giovani Da CruzMestre]

Este “Self.UserControlMain” foi o componente colocado no form TFrmPrincipal,

no caso na propriedade Name do user control é ‘UserControlMain’.

É só joga o componente na tela principal e colocar este nome, para ficar o mesmo
código do exemplo.

[Autor]

Posts