Como alterar Project gt; Options gt; Forms gt; Main form

Delphi

24/02/2006

Tem como alterar Project > Options > Forms > Main form em tempo de Execução ?

quero mudar a ordem em tempo de execusão, será que dá ?


Fabiano Góes

Fabiano Góes

Curtidas 0

Respostas

Paullsoftware

Paullsoftware

24/02/2006

Acho que vc teria que editar no DPR da sua aplicação. Você pretende iniciar um formúlario como sendo o principal para determinados critérios, então, no DPR de sua aplicação coloque um if e dentro dele especifique os formulários que serão criados!

por exemplo:

if Condicao = ´A´ then
begin
 Application.Initialize;
 Application.Title := ´Controle de Locadora´;
 Application.CreateForm(TDM_BANCO, DM_BANCO);
 Application.CreateForm(TfPRINCIPAL, fPRINCIPAL);//Form Criado
 Application.Run;
 end
else
if Condicao = ´B´ then
begin
 Application.Initialize;
 Application.Title := ´Controle de Locadora´;
 Application.CreateForm(TDM_BANCO, DM_BANCO);
 Application.CreateForm(TfPRINCIPAL2, fPRINCIPAL2);//Form criado
 Application.Run;
 end;


tenta ai! :wink:


GOSTEI 0
Jairrc

Jairrc

24/02/2006

Após criar o form que vc quer que seja o principal, acrescente a seguinte linha:
Application.MainForm := SeuFormPrincipal;

Jair


GOSTEI 0
POSTAR