Como acessar os atributos do usuário logado com o UserControl?

Olá pessoal, esta dica vai para quem esta Usando o user Control.

Exemplo de problema:
Fiz o login na minha aplicação, mas quero exibir o login do usuário
que está logado em uma statusbar, por exemplo.

Felizmente o componente já trás uma solução que é a propriedade
CurrentUser.

Esta propriedade nos permite acessar várias informações do usuário
logado.

Os dados acessíveis são:

UserID: Integer;
Profile: Integer;
UserIDOld: Integer;
IdLogon: String;
UserName: String;
UserLogin: String;
Password: String;
PassLivre: String;
Email: String;
DateExpiration: TDateTime;
Privileged: Boolean;
UserNotExpired: Boolean;
UserDaysExpired: Integer;

Veja o exemplo:
Quero mostrar o login do usuário logado no sistema.
No evento OnAfterLogin do userControl deixe conforme exemplo abaixo:

1
2
3
4

procedure TForm1.UserControl1AfterLogin(Sender: TObject);
begin
  StatusBar1.Panels[0].Text := UserControl1.CurrentUser.UserLogin;
end;

Este é um exemplo simples, que pode ser aprimorado.

Você pode baixar o User Control da comunidade Show Delphi
clicando aqui. Ou fazer o clone
do repositório no GitHub: https://github.com/infussolucoes/usercontrol-sd.git

Dúvidas ou sugestões deixe nos comentários do post.

Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!