Abertura do sistema com tela de LOGIN

[nilegor]

Olá,  estou com um problema que não consigo de forma alguma resolver. Preciso fazer o acesso ao sistema com uma tela de login, o problema é que ao  minimizar o form principal fica conforme a imagem em anexo. Uso Delphi XE 6 . 

Segue abaixo o fonte:

procedure TfrmLogin.btOkClick(Sender: TObject);
var
  login, senha : string;
begin
  login := '1';
  senha := '1';

  if(contaErro<4) then
  begin
    if((eUsuario.Text = login) and (eSenha.Text = senha)) then
    begin
      showmessage('Ok.. você entrou!');
      frmPrincipal.Visible := true;
      frmLogin.hide;
    end
    else begin
      Inc(contaErro);
      ShowMessage('Senha ou login invalidos');
    end;
  end
  else
  begin
    ShowMessage('Você não pode entrar');
    close;
  end;
end;

 

[Jhonas]

não entendi o problema...

ao minimizar o form, ele deve ficar no canto inferior esquerdo

ou pode tentar assim

frmLogin.WindowState := wsMinimized;

 

OBS: voce deve postar as suas dúvidas no forum principal ( Delphi, Kylix )

O forum Tutorias & Dicas é somente para códigos prontos ... ok ?

abraço

[nilegor]

Ok. Compreendi. Fiz um novo post no forum principal. Mas da forma que passou não deu certo.

[Jhonas]

ainda não entendi onde está o problema ...

a sua tela está escura ... é esse o  motivo ?

[nilegor]

Jhonas, não  é isso não. Eu apenas ocultei os icones da area de trabalho. Desculpe se não fui epecifico.

Ao executar o sistema, abre a tela de LOGIN normalmente, como pode ver na imagem (login.png), esta correto. Depois que clico em confirmar e abre o form principal (formPrincipal.png), o icone do sistema some da barra de tarefas do windows e se eu minimizar o form principal, ele fica dessa forma conforme a outra imagem(minimizado.png). Caso preferir, posso lhe mandar um exemplo do fonte que estou usando !

[Jhonas]

ok... agora entendi o seu problema

é o mesmo que ocorreu nesse Tópico ...  leia todos os Posts

use o componente RXTrayIcon da RXLib que resolve esse problema

abraço

 

[nilegor]

beleza, instalei os componentes, inseri o componente  RXTrayIcon, coloquei um icone, coloquei o hint e ativei ele, porém não mudou nada. Seria apenas isso mesmo que deveria ser feito ?

[Jhonas]

esse componente vai mostrar o icone da sua aplicação na barra de tarefas do windows

na propriedade Icon voce coloca o icone que voce quer que apareça na barra de tarefas

na propriedade Hint  voce coloca o nome do seu programa

e na propriedade active voce deixa como true

ao executar o programa o icone vai aparecer na barra de tarefas, mesmo ele não estando minimizado

use tambem o componente PopupMenu1 da aba Standard junto com o RXTrayIcon

para que voce possa maximizar o seu programa novamente

 

abraço

[nilegor]

Boa noite, desculpe a demora, mas não mudou nada, continua da mesma forma. Esse componente funciona normalmente com o delphi xe6 ? Se quiser posso lhe enviar um projeto de teste para ver como acontece de fato o que informei.

[Jhonas]

manda o projeto no email que te passei por MP

[Jhonas]

testei o seu projeto e esta funcionando como deveria

abraço