Pq d� erro quando passo uma vari�vel para criar um form??

Question

Colegas..� o seguinte, tenho um form, na qual eu utilizo em v�rioas m�dulos separadamente, ent�o ele deve ser independente..Para isso preciso dar um CreateForm em um dos forms, mas pass�-lo como uma v...

Rodolpho123 · Answer

Tente:[code:1:41b91aba4e]var   fForm : TSuaClasseDeForm;   //  Desde que a uses esteje declarada neste form onde vc chama o outro...begin    if fForm = nil then    Application.CreateForm(TSuaClasseDeForm,fForm);   //  Depois, vc destr�i o Form onde vc quiser, usando  FreeAndNil(fForm);end;[/code:1:41b91aba4e]...

Cabelo · Answer

Colega..Isso eu j� fa�o, exatamente como vc sugeriu.. o problema est� no seguinte..Em um determinado momento eu chamo um form de busca.. frmBusca, neste form eu tenho a vari�vel s_form.. dentro de um do form selecionar cliente eu preciso chamar o frmbusca, e passar para a vari�vel o form cadastro de clientes, frmCadCli.. at� a� belesa uso o createform como vc sugeriu e ele cra, o problema est� quando eu preciso usar o form por exemplo frmCadCli.caption := �Teste�, a� d� erro de viola��o de acesso, debuguei, e o que ele criou foi um �espelho� do form que passei pra vari�vel, com o nome frmCadCli_1, isto � n�o criou o form como deveria ser..Preciso criar este mesmo form, mas sem us�-lo na se��o USES do frmBusca..Tem outra sugest�o..?...

Rodolpho123 · Answer

Tente antes de criar o seu Form pela vari�vel, passar [b:8f199885ea]nil[/b:8f199885ea], pois eu j� tive um problema parecido com o seu. Quando eu atribu�a minha vari�vel, assim:

var
   fForm : TMinhaClasse;

ela j� vinha instanciada, como vc disse, um �espelho� da classe de heran�a. E o que resolveu foi fazer isto:

begin
   fForm := nil;
   Application....
end;

Acho que isto pode resolver o seu problema...

Beppe · Answer

Sem colocar a unit no uses � imposs�vel fazer algo com o form diretamente, mas d� pra fazer algo com Screen.Forms, ou se vc usar um vari�vel global.

for I := 0 to Screen.FormCount - 1 do
  if Screen.Forms[I].ClassName = �TfrmCadCli� then
  begin
    Screen.Forms[I].Caption := �Teste�;
    Break;
  end;

Cabelo · Answer

Eu utilizo uma vari�vel global e mesmo assim n�o consegui, e com o screen forms ficou extremamente lenta a plica��o, j� que passo quaso todos os par�metros em RUN TIME, o que eu acho estranho, � pq criar um form parecido se eu passo um form existente para a vari�vel..

N�o posso tratar na se��o uses, j� que uso este form em v�rios m�dulos, sendo que ele � compartilhado a todos..

Tem alguma outra sugest�o?

Beppe · Answer

Cabelo, verifique este thread: //forum.clubedelphi.net/viewtopic.php?t=58133Isto sanar� seu problema de inefici�ncia.T+...

F�rum Pq d� erro quando passo uma vari�vel para criar um form?? #268507