Form � mostrado antes que o programa

Question

Pessoal,  Estou fazendo um programa e de um dia para o outro um dos forms come�ou a dar problema: ele � mostrado e depois se fecha, antes do form principal (sem que eu desse um comando para isso), e q...

Fbag22 · Answer

A sua Aplica��o � MDI?...

Ozelo · Answer

N�o. O que voc� acha que �?[]�s...

Nigro · Answer

Esse tal formul�rio para que server? � um splash? Ou um autenticador de senhas?...

Fbag22 · Answer

� pq se ela for MDI, tudos os formularios que estao no auto-create sao mostrados quando o programa carrega, � uma possibilidade.

Faz o seguinte no Delphi clica em Ctrl+F12 e abre o seu projeto (o arquivo DPR) e veja se tem algum comando l�.

Se quiser poste o codigo aki pra gente ver

Abra�o

Ozelo · Answer

Nigro,

N�o � uma splash, � um form de cadastro de cliente do aplicativo.

Fabio,

program Anaglea;

uses
  Forms,
  Sace in �Sace.pas� ,
  DMunit in �DMunit.pas� {DM: TDataModule},
  ConfigUnit in �ConfigUnit.pas� ,
  ListCliUnit in �ListCliUnit.pas� ,
  CadCliUnit in �CadCliUnit.pas� ,
  PegaCliUnit in �PegaCliUnit.pas� ,
  CadConUnit in �CadConUnit.pas� ,
  FormAnivUnit in �FormAnivUnit.pas� ,
  ReportListCliUnit in �ReportListCliUnit.pas� {ReportListCli: TQuickRep},
  ReportCadCliUnit in �ReportCadCliUnit.pas� {ReportCadCli: TQuickRep},
  CadFunUnit in �CadFunUnit.pas� ,
  FunDemiUnit in �FunDemiUnit.pas� ,
  ReportCadFunUnit in �ReportCadFunUnit.pas� {ReportCadFun: TQuickRep},
  ListFunUnit in �ListFunUnit.pas� ,
  ReportListFunUnit in �ReportListFunUnit.pas� {ReportListFun: TQuickRep},
  ListConUnit in �ListConUnit.pas� ;

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TFormConfig, FormConfig);
  Application.CreateForm(TFormListCli, FormListCli);
  Application.CreateForm(TFormCadCli, FormCadCli);
  Application.CreateForm(TFormPegaCli, FormPegaCli);
  Application.CreateForm(TFormCadCon, FormCadCon);
  Application.CreateForm(TFormAniv, FormAniv);
  Application.CreateForm(TReportListCli, ReportListCli);
  Application.CreateForm(TReportCadCli, ReportCadCli);
  Application.CreateForm(TFormCadFun, FormCadFun);
  Application.CreateForm(TFormFunDemi, FormFunDemi);
  Application.CreateForm(TReportCadFun, ReportCadFun);
  Application.CreateForm(TFormListFun, FormListFun);
  Application.CreateForm(TReportListFun, ReportListFun);
  Application.CreateForm(TFormListCon, FormListCon);
  Application.Run;
end.

O form � o FormCadCli, ele � mostrato logo depois de ser criado, quando a aplica��o come�a a rodar ele desapare�e, e quando tento entrar nele dentro do programa, recebo uma mensagem de erro.

Se algu�m poder me ajudar eu agrade�o.

[]�s

Fbag22 · Answer

ok, por acaso a propriedade OnCreate ou OnShow desse form tem alguma coisa?...

Fbag22 · Answer

Ah, verifique tb o OnShow do Form Principal....

Ozelo · Answer

Fabio,  Tanto o FormCadCli como o form principal n�o possuem evento OnCreate e nem OnShow. Verifiquei tamb�m a propriedade FormStyle, e ela est� em fsNormal.[]�s...

Fbag22 · Answer

Realmente � muito estranho. Mas tente fazer o sequinte: D� um Build All no projeto pra ver se ele corrige o problema. Tente outra coisa tb: entre nas propriedades do projeto e veja a lista de formul�rios, h� duas colunas, Auto-Create e avaliable forms (ou alguma coisa assim). Pois bem, coloque esse form em avaliable form, assim sua janela nao vai carregar assim que o programa iniciar (se vc fizer isso com todos os formularios, menos o principal, seu projeto vai carregar muito mais r�pido). Depois, pra abrir a janela vc nao usa:

Form1.ShowModal;

e sim:

Form1 := TForm1.Create(nil); [i:8a35dc5336]//Cria o formul�rio[/i:8a35dc5336]
Form1.ShowModal; [i:8a35dc5336]//Abre a janela em formato modal[/i:8a35dc5336]
Form1.Free; [i:8a35dc5336]//Libera o form da mem�ria[/i:8a35dc5336]

vc pode usar isso em todos os seus forms, seu programa fica muito mais leve em runtime.

Tenho certeza q dessa forma, ir� acabar o problema. Mas mesmo assim, tente dar um Build All antes, blz...

Um abra�o e sucesso

F�rum Form � mostrado antes que o programa #200093