melhor maneira para criar form.

Question

Boa Noite, gostaria de pedir a opini�o de voc�s, se possivel exemplos.Como voc�s fazem para criar form, em tempo de execu��o ?Utilizam algum tipo de fun��o?Pesquisei no f�rum sobre registrar uma class...

Lynx · Accepted Answer

Foi mal...O N�o correto, que eu escrevi � que n�o � para todos os casos.Muito legal a explica��o dos form, muito Obrigado.Mas por exemplo se eu crio um form, e quando clico fora dele ele fecha...Qual ...

Raczy · Answer

Fm_Principal:=TfmPrincipal.Create(Application);Fm_Principal.Show;Sempre criei os meus formul�rios desta forma....

Lynx · Answer

mas assim n�o � o correto...

Rjun · Answer

pq n�o � correto?...

Rafael Mattos · Answer

Qual a melhor maneira de criar forms em tempo de execucao:

a) Application.CreateForm(TfmClientes, fmClientes);

Cria o Form; o propriet�rio � a aplica��o.

b) fmClientes := TForm.Create(self);

Cria o Form; o propriet�rio � ele mesmo.

c) fmClientes := TForm.Create(Application);

Cria o Form; o propriet�rio � a aplica��o.

d) fmClientes := TForm.Create(nil);

Cria o Form; teoricamente sem propriet�rio; na pr�tica � a aplica��o.

e) fmClientes := TfmClientes.Create(self);

Cria o Form; o propriet�rio � ele mesmo.

f) fmClientes := TfmClientes.Create(Application);

Cria o Form; o propriet�rio � a aplica��o.

g) fmClientes := TfmClientes.Create(nil);

Cria o Form; teoricamente sem propriet�rio; na pr�tica � a aplica��o.

Poderiam me informar a diferenca entre elas?

Quando voc� cria um Form dinamicamente:

1. se criar atrav�s de CreateForm, que � um m�todo de TApplication, voc� passa como par�metro a inst�ncia da classe e o nome do seu objeto (TfmClientes, fmClientes);

2. se criar atrav�s de Create - m�todo de TForm, entre outros - voc� passa como par�metro o propriet�rio do componente criado (no caso o Form).

2.1 se o propriet�rio for a aplica��o, o Form s� ser� destru�do quando voc� finalizar o aplicativo ou se voc� declarar Free ou Destroy no seu programa; (casos a, c, d, f, g);

2.2 se o propriet�rio for ele mesmo (self), o form ter� que ser destru�do por voc�;

2.3 se voc� criar, por exemplo, Form2 e passar como propriet�rio Form1; no momento em que Form1 for destru�do, Form2 tamb�m o ser�.

Quanto � melhor maneira, depende de como voc� quer controlar a aplica��o, mas leve em conta que enquanto um objeto n�o � destru�do, ele est� na mem�ria.

Rafael Mattos · Answer

Se eu entendi o que vc disse vc pode usar:tryForm1 := TForm1.Create(Self);Form1.ShowModal;finallyfreeandnil(Form1)end;...

Paullsoftware · Answer

Uma boa maneira de criar Forms � usar uma fun��o simples, q tb verifique se o mesmo j� n�o foi criado...

function FormExiste(xForm: Tform): Boolean;
var
I:Integer;
begin
    FormExiste := false;
    for I := 0 to Screen.FormCount -1 do
    if Screen.Forms[i] = aberto then
    begin
    FormExiste := true;
    Break;
    end
end;

como usar:::

If FormExiste(Form_Clientes) then
 begin
 Form_Clientes.BringToFront;
 Form_Clientes.Focused;
 end else
 begin
 Form_Clientes := TForm_Clientes.Create(Self);
 end;

[b:e90386ef28][i:e90386ef28]Op�s detalhe, estou usando MidForm e MidChild...[/i:e90386ef28][/b:e90386ef28]

Sempre uso esse metodo, e nunca deu problema... :wink:

Massuda · Answer

[quote:8af04ba2c2=�raf�]a) Application.CreateForm(TfmClientes, fmClientes);[/quote:8af04ba2c2]Eu prefiro deixar esta forma para o pr�prio Delphi utilizar para (auto)criar forms. Essa fun��o toma um cuidado especial no caso do form que est� sendo criado ser o primeiro form criado pelo programa.[quote:8af04ba2c2=�raf�]b) fmClientes := [color=red:8af04ba2c2]TForm[/color:8af04ba2c2].Create(self);c) fmClientes := [color=red:8af04ba2c2]TForm[/color:8af04ba2c2].Create(Application);d) fmClientes := [color=red:8af04ba2c2]TForm[/color:8af04ba2c2].Create(nil);[/quote:8af04ba2c2]Embora essas tr�s linhas compilem sem problemas, n�o vejo muita utilidade em criar forms da classe TForm... esses forms iniciariam vazios e voc� teria que incluir componentes neles em tempo de execu��o via c�digo. Voc� usa isso?[quote:8af04ba2c2=�raf�]e) fmClientes := TfmClientes.Create(self);f) fmClientes := TfmClientes.Create(Application);g) fmClientes := TfmClientes.Create(nil);[/quote:8af04ba2c2]Ao contr�rio dos tr�s exemplos anteriores, estas linhas v�o criar um form desenhado por voc� da classe TfrmClientes.Com rela��o ao propriet�rio (Owner)....Owner � o objeto (da classe TComponent) que ir� se encarregar de destruir o objeto que est� sendo criado. No exemplo (e) seria o TComponent apontado por Self (normalmente outro form) e no exemplo (f) seria o Application.Com rela��o ao exemplo (g), eu entendo que a inten��o de usar nil � informar (ao compilador) que voc� est� assumindo a responsabilidade de destruir ...

Massuda · Answer

[quote:dbd599d688=�lynx�]Mas por exemplo se eu crio um form, e quando clico fora dele ele fecha... Qual tipo de form devo criar ?[/quote:dbd599d688]Eu n�o entendi o que voc� quis dizer... poderia explicar melhor?[quote:dbd599d688=�lynx�]E Para complementar o form, que criar vou criar outro form, com ele e tamb�m n�o pode fechar quando clicar fora, s� vai poder mexer no form que criou.[/quote:dbd599d688]Um form que n�o deixa voc� mexer em outros forms � exibido usando o m�todo ShowModal do form. Esse form � exibido at� que o valor de ModalResult do form seja n�o zero; normalmente o valor de ModalResult do form � alterado quando voc� clica num bot�o (� para isso que serve a propriedade ModalResult do bot�o). Forms que usam ShowModal normalmente s�o caixas de di�logo e s�o criados com borda bsDialog....

Lynx · Answer

� assim Tenho um Form de cadastro, clico em um botao de consulta,vai abrir outro form...Quando eu clico no 1 form, o 2 fecha sozinho......

Massuda · Answer

[quote:6ae12bf750=�lynx�]Quando eu clico no 1 form, o 2 fecha sozinho...[/quote:6ae12bf750]Para que dosi forms possam ser usados simultaneamente, exiba os forms usando Show (e n�o destrua os forms depois de executar o m�todo Show). O que eu n�o entendo � o que voc� quer dizer com �fecha sozinho�... voc� quer que o form seja destru�do quando ele perder o foco de entrada? Nesse caso, execute Release no OnDeactivate do form....

Lynx · Answer

J� funcionou normalmente com o showmodal... Valeu...

F�rum melhor maneira para criar form. #289933