Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Modo Login


valSistemasDelphi

Pergunta

Estou com uma dúvida no meu sistema. Ao digitar o usuário e login corretamente abre a tela principal, até ai tudo bem!! Só que a tela de login acaba ficando aberta.. Se coloco um Visible:=true no Código de acesso.. O sistema entra mais o icone do Sistema não fica selecionado..Tipo quando você entra num programa la na barra de tarefas ele fica selecionado logo em baixo, assim o usuário ve que o programa está em execução.. E no meu caso não.. Tem como eu resolver este empasse.. Desde já agradeço..

Link para o comentário
Compartilhar em outros sites

16 respostass a esta questão

Posts Recomendados

  • 0

Jhonas instalei o componente.. quando coloco ele no formulário e executo, ele da esse erro.. 

[dcc32 Fatal Error] Login.pas(8): F1026 File not found: 'E:\Downloads\Sistema Cantina\RxShell.dcu'.. já reinstalei ele pelo o caminho da pasta, e da o mesmo erro..

Editado por valSistemasDelphi
Link para o comentário
Compartilhar em outros sites

  • 0

[dcc32 Fatal Error] Login.pas(8): F1026 File not found: 'E:\Downloads\Sistema Cantina\RxShell.dcu'.

veja que o caminho que ele está procurando é este:

E:\Downloads\Sistema Cantina\RxShell.dcu'.

se os arquivos .dcu não estiverem nesse caminho dá erro.... 

para contornar isso, voce pode copiar todas as .dcu do RX para a pasta LIB do delphi

e todos os .bpl para a pasta BIN do delphi

abraço

 

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

jonas obrigado por responder.. O que esta me tirando o sono e este problema, que esta aparecendo na foto em baixo..

Logo quando faço o login com usuário e senha a tela de login fica aberta.. Já usei Form1.Close por exemplo mais não funciona o programa fecha.. Form1.Visible:=False, e o único que funciona, so que o sistema não fica mais visivel na barra de tarefas.. Não estou conseguindo resolver isto, não sei se estou esquecendo de mais alguma coisa no Código.. Se Poder me ajudar, DEsde já agradeço..

 

Captura de Tela (172).png

Link para o comentário
Compartilhar em outros sites

  • 0

Logo quando faço o login com usuário e senha a tela de login fica aberta..

isso está correto ... voce só vai fechar esse form, quando fechar a sua aplicação.

o que voce tem que fazer é minimizar esse form, quando o form do Menu for minimizado.

coloque esse comando no Private do form Menu

   private
    { Private declarations }
      procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;

depois do Implementation  coloque

==========================================================

procedure TFMenu.WMSysCommand(var Msg: TWMSysCommand);
begin
   if (Msg.CmdType = SC_MINIMIZE) then

      begin

           ////  Login ( troque pelo nome do seu form Login e Senha)
           Login.WindowState := wsMinimized; 

      end;
   DefaultHandler(Msg);
end;

======================================================

OBS: procedure TFMenu é o nome do seu Form de Menu

quando voce minimizar o seu programa, automaticamente o form de Login e Senha tambem será minimizado e não ficará aparecendo

 

abraço

 

Link para o comentário
Compartilhar em outros sites

  • 0

jonas o Delphi aparentemente não esta reconhecendo os comandos..

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
   if (Msg.CmdType = SC_MINIMIZE) then

      begin

           ////  Login ( troque pelo nome do seu form Login e Senha)
           login.Form1.WindowState := wsMinimized;

      end;
   DefaultHandler(Msg);

end;

 

WMSysCommand..

 DefaultHandler...

 

Link para o comentário
Compartilhar em outros sites

  • 0

vou fazer um exemplo para voce ver como funciona

fiz um Form1 que seria o seu form de login

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   form2.showmodal;
end;

end.


==============================================================

nele tem apenas um botão para chamar o Form2 que seria o seu form de Menu

 

unit Unit2;

interface

uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   Menus, ExtCtrls, ComCtrls, StdCtrls;
type
  TForm2 = class(TForm)
  private
    { Private declarations }
     procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;


{$R *.dfm}

procedure TForm2.WMSysCommand(var Msg: TWMSysCommand);
begin
   if (Msg.CmdType = SC_MINIMIZE) then
      Form1.WindowState := wsMinimized;
   DefaultHandler(Msg);
end;

end.
 

============================================================

observe os comandos e as uses declaradas

quando voce minimiza o Form2 ( Menu )  o Form1 ( Login ) será minimizado automaticamente

abraço

Link para o comentário
Compartilhar em outros sites

  • 0

acho que voce ainda não entendeu ....

quando voce cria um sistema, voce não vai deixar que o usuario mova a tela de menu do seu lugar, mas vai deixar que ele a minimize para poder fazer alguma outra coisa, sem a necessidade de fechar o programa.

nesse momento é que voce minimiza a tela de login, para que ela não fique aparecendo por traz da tela de menu.

deixar o form sem poder move-lo do lugar:

http://www.devmedia.com.br/forum/form-não-mover/331998

abraço

Link para o comentário
Compartilhar em outros sites

  • 0

jonas valeu pela ajuda agora deu certo, pelo link que você passou.. Só mais uma coisa quando eu minimizo o form fica o bloquinho minimizado em cima, na parte superior da tela do computador!! E quando eu passo o mouse em cima do icone ele aparece a imagem do form de login.. Tem como solucionar isto, para finalizar o tópico..

Link para o comentário
Compartilhar em outros sites

  • 0

quando eu minimizo o form fica o bloquinho minimizado em cima, na parte superior da tela do computador!!

isso é estranho, pois quando minimizo as minhas aplicações, as janelas ficam na parte inferior esquerda da tela ( as vezes nem aparecem )  por isso eu uso o RxTrayIcon com o PopupMenu para maximizar as janelas novamente.

E quando eu passo o mouse em cima do icone ele aparece a imagem do form de login.

veja se voce não colocou algum código no evento OnMouseMove do seu Form Menu ou do Login

abraço

 

 

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...