(Resolvido) Modo Login

[valSistemasDelphi]

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..

[Jhonas]

veja o componente RXTrayIcon do pacote RXLib

procure a versão do RXLib para o seu delphi e instale os componentes

http://www.micrel.cz/RxLib/dfiles.htm

http://www.planetadelphi.com.br/artigo/48/botão-fechar-minimiza-a-aplicação

 

abraço

[valSistemasDelphi]

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 Agosto 30, 2016 por valSistemasDelphi

[Jhonas]

[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

 

[valSistemasDelphi]

Opa valeu ai jhonas deu certo Obrigado pela Ajuda!! Só que não sei se estou esquecendo de algo, pois logo quando executo não fica o icone desejado logo na barra de tarefas.. E já configurei o icone e esta ativado já.. 

Editado Setembro 1, 2016 por valSistemasDelphi

[Jhonas]

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

[valSistemasDelphi]

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..

 

[Jhonas]

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

 

[valSistemasDelphi]

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...

 

[Jhonas]

veja se voce definiu a uses Dialogs e Messages,

esse comando está errado

login.Form1.WindowState := wsMinimized;

seria

NomedoFormLogin.WindowState := wsMinimized;

coloque o nome do seu form login

abraço

 

[valSistemasDelphi]

does not contain a member named TWMSysCommand.. quando paro o mouse em cima da palavra .." WMSysCommand"..

Traduzindo: não contém um membro denominado WM_SYSCOMMAND...

[Jhonas]

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

[valSistemasDelphi]

jonas nessa parte de minimizar deu super certo.. Mais na hora que o usuário entra no sistema a tela de login, infelizmente fica aberta por traz da tela principal.. Igual na imagem que postei!!

 

[Jhonas]

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

[valSistemasDelphi]

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..

[Jhonas]

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

 

 

[valSistemasDelphi]

beleza jonas o que eu estava tendo problemas já foi resolvido, muito obrigado.