[Resolvido] Service Application trava edição

[Marcos C. Costa 0]

Aopa!!!!

 

 

Estou desenvolvendo um servico que trabalha como Gerenciador de Logins para nossos sistemas.

 

Quando eu inicio ele como APLICAÇÃO, usando o "FORMS" no projeto, sem passar pela Unit de Serviço, ele permite alterar valores das EDITS, porém, quando inicio como SERVIÇO, usando o SVCMGR no projeto, ele não permite alterar valores das EDITS no Formulário.

 

Já verifiquei se isso tem a ver com as possíveis situações (Erro de SKIN, Permissão de Usuário, Política de Segurança), mas todas sem sucesso!

 

Segue abaixo FONTE, tanto do PROJETO bem como a rotina que chama o Formulário.

 

Projeto:

 

program loginServer;

uses
  SvcMgr,
  UFrmPrincipal in 'UFrmPrincipal.pas' {FrmPrincipal},
  USrvServidor in 'USrvServidor.pas' {SrvServidor: TService};
begin
  Application.Initialize;
  Application.Title := 'LoginServer';
  Application.CreateForm(TSrvServidor, SrvServidor);
  Application.Run;
end.

Servico:

 

Try
  CoInitialize(Nil);
  Try
    FrmPrincipal := TFrmPrincipal.Create(Nil);
  Except
    On E: Exception Do
       ShowMessage('Erro: '+E.Message);
  End;
Finally
  CoUninitialize;
End;

Agradeço a colaboração!

[Marcos C. Costa 0]

Aopa!!!!

 

 

Estou desenvolvendo um servico que trabalha como Gerenciador de Logins para nossos sistemas.

 

Quando eu inicio ele como APLICAÇÃO, usando o "FORMS" no projeto, sem passar pela Unit de Serviço, ele permite alterar valores das EDITS, porém, quando inicio como SERVIÇO, usando o SVCMGR no projeto, ele não permite alterar valores das EDITS no Formulário.

 

Já verifiquei se isso tem a ver com as possíveis situações (Erro de SKIN, Permissão de Usuário, Política de Segurança), mas todas sem sucesso!

 

Segue abaixo FONTE, tanto do PROJETO bem como a rotina que chama o Formulário.

 

Projeto:

 

program loginServer;

uses
  SvcMgr,
  UFrmPrincipal in 'UFrmPrincipal.pas' {FrmPrincipal},
  USrvServidor in 'USrvServidor.pas' {SrvServidor: TService};
begin
  Application.Initialize;
  Application.Title := 'LoginServer';
  Application.CreateForm(TSrvServidor, SrvServidor);
  Application.Run;
end.

Servico:

 

Try
  CoInitialize(Nil);
  Try
    FrmPrincipal := TFrmPrincipal.Create(Nil);
  Except
    On E: Exception Do
       ShowMessage('Erro: '+E.Message);
  End;
Finally
  CoUninitialize;
End;

Agradeço a colaboração!

 

Erro resolvido! Quando damos um SHOW em um FORM, criado por um TService, o TService capta para si todas as teclas, menos delete e algumas outras. O erro foi resolvido por usar um SHOWMODAL.

 

Vlew!