Funcionalidade de customizar a tela de login

[Anônimo]

não funciona ela não insere as imagens que escolho ja tentei de várias formas. Preciso customizar minha tela de login vcs saberiam me informar se tem como alterar o fonte e como eu recompilar o usercontrol preciso dar uma customizada na teal de login.

[InfusTec]

Seguinte, você pode utilizar o formulário próprio para o login.

No evento OnCustomLoginForm do UserControl, há uma variável CustomForm,
onde você pode passar por parâmetro o seu form.

Exemplo:

procedure TForm1.UserControlMainCustomLoginForm(Sender: TObject;
var CustomForm: TCustomForm);
begin
  CustomForm := TfrmLogin.Create(Application);
  TfrmLogin(CustomForm).UserControl := Self.UserControl1;
end;

[InfusTec]

Aqui mostra um pouco mais sobre a tela personalizada.

http://showdelphi.com.br/forum/topic/erro-ao-validar-login/

[Marcos Roberto da Cruz]

ola o meu eu coloquei assim no form que fiz

TfrmLogin = class(TForm)
UserControl1: TUserControl;
cxButton1: TcxButton;
EdtLogin: TcxTextEdit;
EdtSenha: TcxTextEdit;
procedure cxButton1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
FUserControl: TUserControl;
{ Private declarations }
public
property UserControl: TUserControl read FUserControl write FUserControl;
{ Public declarations }
end;

mais quando vou salvar ou compilar da erro
field frmlogin.usercontrol1 does not have a correspondigin componente. remove the declariion

aonde estou errado

[Marcos Roberto da Cruz]

isso ja resolvi so que tem outro problema mesmo acessando

eu usava o evnto on login do compomente par apegar o nome do usuario codgio etc.. so que agora nao preenche e como se nao fizesse o login fiz algo errado

[Marcos Roberto da Cruz]

como pegar o numero de tentativo usando maklogin digo para ir somando as tentativa e mostrar no statusbar

• Esta resposta foi modificada 8 anos, 4 meses atrás por Marcos Roberto da Cruz.

[InfusTec]

Neste caso, você precisa criar o componente no form que irá customizar, ou ao menos uma propriedade para poder “ligar” o form com o componente.

Olhando o fonte, parace ter declarado no .pas isso UserControl1: TUserControl
e não tem no dfm.

Talvez só em remover esta linha, poderá funcionar.

[Autor]

Posts