Fórum Alterar o MainForm em tempo de execução #299775
17/10/2005
0
Boas, to penando aqui pra resolver o seguinte problema..
Qndo inicio a minha aplicação eu crio primeiramente os datamodules, porem quando nao existe uma conexao com o bd configurada eu exibo uma tela pro cara criar a conexao e depois disso continuo a criacao dos forms(splash, login, etc...)
mas o problema eh o seguinte..quando eu crio esse form para configurar a conexao, a aplicacao entende que o meu MainForm eh esse form e nao o meu form principal, aih ferra tudo..
nao sei como fazer para informar que o meu mainform eh o frmX por exemplo..
alguem pode me ajudar?
agradeco desde ja,
abracos
Qndo inicio a minha aplicação eu crio primeiramente os datamodules, porem quando nao existe uma conexao com o bd configurada eu exibo uma tela pro cara criar a conexao e depois disso continuo a criacao dos forms(splash, login, etc...)
mas o problema eh o seguinte..quando eu crio esse form para configurar a conexao, a aplicacao entende que o meu MainForm eh esse form e nao o meu form principal, aih ferra tudo..
nao sei como fazer para informar que o meu mainform eh o frmX por exemplo..
alguem pode me ajudar?
agradeco desde ja,
abracos
Saint
Curtir tópico
+ 0
Responder
Posts
17/10/2005
Massuda
...quando eu crio esse form para configurar a conexao, a aplicacao entende que o meu MainForm eh esse form e nao o meu form principal...
Não crie esses forms (configuração do BD, login, splash, etc) usando Application.CreateForm... use algo assim...SeuForm := TSeuForm.Create(nil);
Responder
Gostei + 0
17/10/2005
Saint
blza, eu testei aqui e funcionou..
valeu velho, e assim..soh pra constar, eu tava pesquisando aqui e encontrei isso:
procedure SetMainForm(FormAtivo:TForm)
var TmpMain: ^TCustomForm;
begin
TmpMain := @Application.Mainform;
TmpMain^ := FormAtivo;
end;
isso funcionou tb..
valeu ae..
abraco
valeu velho, e assim..soh pra constar, eu tava pesquisando aqui e encontrei isso:
procedure SetMainForm(FormAtivo:TForm)
var TmpMain: ^TCustomForm;
begin
TmpMain := @Application.Mainform;
TmpMain^ := FormAtivo;
end;
isso funcionou tb..
valeu ae..
abraco
Responder
Gostei + 0
22/05/2015
Alex Sousa
Cara, você poderia explicar o código?
Aguardo retorno!
Aguardo retorno!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)