Problema com formCreate em Delphi (Está me deixando louco)

[Leandro Bonato 0]

Bom dia Srs., estou com o seguinte problema, tenho o form principal que tem um botão, dentro deste botão faz um nomeDoForm := TNomeDoForm.Create(self);

até ai tudo bem, mas quando ele executa o Create ele já está pulando para o onShow deste form e tem mais comandos abaixo deste (nomeDoForm := TNomeDoForm.Create(self)), inclusive tags que fazem diversos apontamentos visuais.

Observação: já fiz o seguinte deixei todo o código comentado apenas com o este código Create, tirando o show que tem mais abaixo enfim, pois mesmo assim ele faz o show.

Segue código ...

 

 

 

FormCadVestimenta := TFormCadVestimenta.Create(Self);

if NovoLogin then

begin

FormAcess := TFormAcess.Create(self);

FormAcess.sistema := 'LABPAPEL';

FormAcess.CodMenu := FormAcess.RetornarCodMenu(FormAcess.RetirarCaracterAtalho(TMenuItem(Sender).Name));

FormAcess.codusuario := codUsu;

if not Admin then

begin

FormAcess.VerificaDireitos;

DataModule1.QryVestim.Close;

if not FormAcess.Alterar then

DataModule1.QryVestim.LockType := ltReadOnly;

FormCadVestimenta.BtnGravar.Enabled := FormAcess.Alterar;

FormCadVestimenta.BtnCancelar.Enabled := FormAcess.Alterar;

FormCadVestimenta.BtnIncluir.Enabled := FormAcess.Novo;

FormCadVestimenta.BtnExcluir.Enabled := FormAcess.Excluir;

end;

FormAcess.logAcesso;

FormAcess.Free;

end;

if Sender = FormMenu.Vestimentas1 then

FormCadVestimenta.Tag := 1;

if Sender = FormMenu.Cordas1 then

FormCadVestimenta.Tag := 2;

DataModule1.QryVestim.Open;

FormCadVestimenta.Show;

Observação 2: eu tenho outros forms que fazem a mesma coisa, e funcionam perfeitamente, também já verifiquei se não há algum show para o form perdido no meio do código, mas não tem.

Obrigado a todos até o momento.

[Eisenheim 67]

Olá amigos.

 

Só por curiosidade, esse form não está como "auto-creates" nas opções do projeto? Se estiver remova-o e me diga o que acontece.

 

Até a próxima. :thumbsup: