O programa não aparece na barra de tarefas.

Delphi

10/03/2008

Pessoal estou com um problema um pouco incomum, uma aplicação minha que estou desenvolvendo não aparece na barra de tarefas.
Alguem ai sabe o motivo disso ocorrer?

Não sei se ajuda, mais aqui vai o modo como minha aplicação inicializa:

{$R *.res}

begin
  Application.Initialize;
  Application.Title := ´SGCom - "Estoque" - Sistema Gerenciamento de Comércio´;
  FrmSplash := tFrmSplash.Create(Application);
  FrmSplash.Show;
  FrmSplash.Refresh;
  Application.CreateForm(TDmRelatorio, DmRelatorio);
  Application.CreateForm(TDmCadastro, DmCadastro);
  Application.CreateForm(TDmProduto, DmProduto);
  Application.CreateForm(TDmSistema, DmSistema);
  Application.CreateForm(TDmListagem, DmListagem);
  Application.CreateForm(TFormPrincipal, FormPrincipal);
  FrmSplash.Free;
  Application.Run;
end.


Agradeço desde já
Atenciosamente Vitor Araújo Alcântara.


Vitor Alcantara

Vitor Alcantara

Curtidas 0

Respostas

Vitor Alcantara

Vitor Alcantara

10/03/2008

Pessoal consegui resolver.

vou postar o código aqui caso alguem mais passe pelo mesmo ´problema´.

begin
  Application.Initialize;
  Application.Title := ´SGCom - "Estoque" - Sistema Gerenciamento de Comércio´;
  FrmSplash := tFrmSplash.Create(Application);
  FrmSplash.Show;
  FrmSplash.Refresh;
  Application.CreateForm(TDmRelatorio, DmRelatorio);
  Application.CreateForm(TDmCadastro, DmCadastro);
  Application.CreateForm(TDmProduto, DmProduto);
  Application.CreateForm(TDmSistema, DmSistema);
  Application.CreateForm(TDmListagem, DmListagem);
  Application.CreateForm(TFormPrincipal, FormPrincipal);
  FrmSplash.Free;
  Application.MainFormOnTaskbar := True;//Aqui a linha que adicionei.
  Application.Run;
end.


Bastou acrescentar no final Application.MainFormOnTaskbar := True; que deu tudo ok.


GOSTEI 0
Asales

Asales

10/03/2008

Valeu Vitor,
vc me poupou o trabalho de postar esta mesma dúvida que eu estava tendo.


GOSTEI 0
POSTAR