Problema com ponteiro e Application.MainForm

Question

Amigos estou com um problema com ponteiros mas como naum sou acostumado a usar, naum estou conseguindo resolver .... Dentro do meu MainForm tenho o seguinte : [code:1:faa70a4c56]private     FFteste: ^...

Yallebr · Answer

ALEXANDRE_SBO

Tente assim

Formulario := TFormulario.Create(nil).

Essa forma

Application.CreateForm(TForm2,FFteste^);

Realmente � para criar o form principal.

Obejto := Classe.Create seria o correto.

Massuda · Answer

O c�digo que voc� postou foge um pouco do usual, principalmente porque ele est� no evento OnCreate do que parece ser seu form principal. Dava para voc� esclarecer qual o objetivo desse c�digo? Porque me parece que, na pr�tica, ele equivale a escrever

procedure TfrmMain.FormCreate(Sender: TObject); 
begin 
  Application.CreateForm(TForm2, Form2); 
  FFteste:=@Form2; 
end;

Alexandre_sbo · Answer

Massada vou tenta explicar o que quero fazer pra vc ....
� assim eu tenho o dmconexaoPadrao,FrmMainPadrao e FrmLoginPadrao,
Dai fa�o uma heran�a dos Ficando dmConexao,FrmMain,frmLogin....
Dai no create no frmmain antes inherited, e seto uma variavel login:=@frmlogin
dai no create do frmmainPadrao eu quero criar o frmlogin e fazer algumas coisa com ele .....

Alexandre_sbo · Answer

to mandando o codigo do frmMainPadrao pra ver se fica mais facil de entender o que preciso......

  {cria classe de configura��o}
  Configuracoes:=TConfiguracoes.Create;
  with frmSplash,Configuracoes.Geral do
    begin
      {checa se a applica��o j� existe}
      ChecaApplicationTitle;
      {cria tela de splash}
      frmSplash := TfrmSplash.Create(Application);
      try
        frmSplash.Show;
        frmSplash.Update;
        AtualizaGauge(Gauge,1,30);
        {Cria Dm de Conexao}
        Application.CreateForm(TDmConexaoPadrao,Conexao^);
        AtualizaGauge(Gauge,31,60);
        with Conexao^ do
          begin
            {Conecta no banco com usuario sysdba para Carregar Configura��es iniciais}
            Conectar(UsuarioRoot,SenhaRoot);
            AtualizaGauge(Gauge,61,80);
            {seta usuario root para user control}
            ControleUsuario:=TControleUsuario.Create(IBOUserControl,MailUserControl,Database,UsuarioRoot,SenhaRoot);
            {caso o controle de usuario seja por empresa arruma o titulo da applica��o para o usercontrol}
            if FControlePorEmpresa then
              IBOUserControl.ApplicationID:=Application.Title + IntToStr(Empresa.Codigo);
            CarregaConfPadrao(CampoImagem,cds,self.img);
            AtualizaGauge(Gauge,81,90);
            {cria tela de login --> ela deve ser chamada de frmLogin e ser registrada no initialization do main herdado}
            Application.CreateForm(TComponentClass(GetClass(�TfrmLogin�)),Login^);
            AtualizaGauge(Gauge,91,100);
            Empresa.Codigo:=EmpresaPadrao;
          end; { <-- with }
        {atualiza envio de e-mail}
        ConfigMadExcept.updateSubject(Conexao^.UsuarioRoot,ClienteAgsi);
        {seta caption}
        Self.Caption:=�Menu - �+Application.Title;
      finally
        frmSplash.Free;
      end;
    end; { <-- with }

Massuda · Answer

Mantendo o foco no seu problema original...

quando fa�o isso o form2 � criado blz,por�m ele aparece e o form principal naum , ou seja, o form2 acaba se tornando o MainForm da minha aplica��o.

Acho que isso est� acontencendo porque o primeiro form criado em um aplicativo Delphi atrav�s do m�todo TApplication.CreateForm � assumido pela VCL como sendo o form principal da aplica��o.

No seu caso, como est� o c�digo que cria sua janela principal (TfrmMain) no .DPR?

Alexandre_sbo · Answer

� o frmmain ....e esta acontecendo isso que vc disse mesmo...ele est� assumindo o primeiro form criado.......

Massuda · Answer

[quote:3824603663=�ALEXANDRE_SBO�]e esta acontecendo isso que vc disse mesmo...ele est� assumindo o primeiro form criado....[/quote:3824603663]Geralmente no .DPR do projeto o c�digo � parecido com isto:[code:1:3824603663]begin  Application.Initialize;  Application.CreateForm(TfrmMain, frmMain);  Application.Run;  Application.Terminate;end.[/code:1:3824603663]acho que por algum motivo qualquer seu c�digo deve estar diferente. Para ver o DPR de seu projeto, v� em [b:3824603663]Project|View source[/b:3824603663]....

Alexandre_sbo · Answer

este desse jeito sim...mudei o algoritmo e consegui arrumar meu problema ...vlw..............

F�rum Problema com ponteiro e Application.MainForm #276044