Usar componentes de um Form em Outro

Question

Ol� pessoal do Forum, tudo Blz;Gostaria de usar um componente (DBGRID) de um formulario que foi criado em tempo de execucao, mas estou posiconado em outro Formulario, e ai me d� um erro.Se alguem soub...

Massuda · Answer

[quote:f283e29fd0=�isaiasn�]FormClass := TFormClass(GetClass(�TFORMULARIO�)); Form := FormClass.Create(Application); Form.Name := �FORMULARIO�; Form.Show;[/quote:f283e29fd0]N�o sei se esse � o problema, mas n�o h� necessidade de atribuir um nome ao form, ou seja, deixe o Form.Name em branco. O Delphi n�o ir� permitir que voc� tenha dois forms com o mesmo Form.Name. Se voc� realmente precisar dar nomes aos forms criados dinamicamente, gere um nome diferente para cado form criado dinamicamente....

Somar · Answer

Se eu entendi ..crie um frame para o dbgrid e assim vc pode colocar em qualquer form....

Silviogs · Answer

Ol� amigo,n�o sei se entendi, mas se vc est� usando formlu�rio padr�o e depois outros formul�rios usarem os memos componentes do padr�o, se for isto crie o novo form herdando o form padr�o. Neste caso todos os componentes ser�o utilizadosno novo form. Caso contr�rio favor explicar melhor a sua d�vida para que possamos lhe ajudar.AtenciosamenteSilvio Guedes...

Isaiasn · Answer

Deixa eu explicar melhorEstou posicionado em um formulario e quero usar um componente que esta em outro formularioEx. Estou posicionado no F_Estado e quero dar o seguinte comando:if F_Cadastro.DGgrib.SelectRows > 0 then  begin  end;Como que o F_Cadastro foi criado em tempo de execucao, ele da erro.Obrigado....

Isaiasn · Answer

Ol� Amigos, acho que ainda nao fui muito claro.
Acho que agora vai dar para entender.

Eu quero usar as propriedades do Form1 e nao consigo:

if Form1.Grid.SelectedRows > 1 then
begin
end

ou

if Form1.Tag = 10 then
begin
end

Ai me da o famosso erro (Access Violation);

OBS: Chamo o Form1 assim:

FormClass := TFormClass(FindClass(�T�+Form1));
Formulario := FormClass.Create(Application);
Formulario.Name := Form1;
Formulario.ShowModal;

Obrigado pela Aten��o
Isaias

Massuda · Answer

[quote:a21f431eba=�isaiasn�]FormClass := TFormClass(FindClass(�T�+Form1)); Formulario := FormClass.Create(Application); Formulario.Name := Form1;Formulario.ShowModal;[/quote:a21f431eba]Analisando esse peda�o de c�digo, d� para perceber que, nesse contexto, Form1 � na verdade uma vari�vel do tipo string e n�o do tipo TForm (ou derivado). Quando voc� faz....[code:1:a21f431eba]Formulario.Name := Form1;[/code:1:a21f431eba]...voc� est� atribuindo o nome contido na string Form1 (que pode ser qualquer coisa) ao form referenciado pela vari�vel Formulario.Como o compilador s� conhece as vari�veis e n�o o conte�do das vari�veis quando vai gerar o c�digo, este trecho...[quote:a21f431eba=�isaiasn�]if Form1.Grid.SelectedRows > 1 then  begin    endouif Form1.Tag = 10 then  begin    end[/quote:a21f431eba]se refere � vari�vel Form1 do tipo TForm (ou derivado), n�o ao form criado atrav�s da vari�vel Formulario.Para seu c�digo funcionar como voc� espera, seria preciso atribuir o valor de Formulario � Form1; se voc� tem m�ltiplos forms da mesma classe simultaneamente, ent�o n�o deveria usar uma �nica vari�vel global para receber todos os forms.N�o sei se ficou claro, qualquer d�vida posta aqui....

Isaiasn · Answer

Para seu c�digo funcionar como voc� espera, seria preciso atribuir o valor de Formulario � Form1; se voc� tem m�ltiplos forms da mesma classe simultaneamente, ent�o n�o deveria usar uma �nica vari�vel global para receber todos os forms.

Ol� Massuda, realmente o Form1 � uma String, mas existe um formulario na Classe com o Nome de Form1.

Ent�o como eu atribuo o valor de formulario a Form1.

Obrigado.
Isaiasn

Massuda · Answer

[quote:2eea48792c=�isaiasn�]...como eu atribuo o valor de formulario a Form1.[/quote:2eea48792c]Posta aqui sua procedure/function onde voc� est� criando o form usando a vari�vel Formulario....

Isaiasn · Answer

Eis ai a rotina....procedure TF_Menu.ChamaClick(Sender: TObject);Var  FormClass  : TformClass;  Formulario : TForm;begin  FormClass         := TFormClass(FindClass(�T�+Form1));        Formulario        := FormClass.Create(Application);  Formulario.Name   := Form1;  Try    Formulario.ShowModal;  Finally    Formulario.Free;    Formulario:=Nil;  end;end;Obrigado pela aten��o.Isaiasn...

Massuda · Answer

[quote:f5d3be4080=�isaiasn�]Eis ai a rotina....[/quote:f5d3be4080]O form criado nessa procedure s� existe durante a execu��o da procedure, j� que ele � criado e destru�do dentro da pr�pria procedure.Como o form � exibido usando ShowModal, a princ�pio nenhuma outra parte de seu programa seria executada, exceto a do form que est� vis�vel e, totalmente desaconselh�vel, c�digo executado por reentr�ncia. Note que o problema n�o � o ShowModal.Imagino que voc� esteja tentando acessar o form depois dele ter sido destru�do. O problema �[list=1:f5d3be4080][*:f5d3be4080]O form j� foi destru�do[*:f5d3be4080]A vari�vel que voc� est� usando para acessar o form provavelmente nunca recebeu uma refer�ncia v�lida a um form[/list:o:f5d3be4080]Uma solu��o poss�vel seria, antes de destruir o form Formulario, copiar as informa��es que voc� precisa para alguma vari�vel e posteriormente reutilizar essas informa��es....

Isaiasn · Answer

Ol� Massuda, eu queria usar as propriedades do Form1 que ainda esta visilvel, e nao depois de destruilo.

Depois que eu crio ele e dou um ShowModal quero usar as propriedades do Formulario que ainda esta na Tela.

Ex:
if Form1.Tag = 10 then
begin
end

Ai ele me da a mensagem (Access Violation)

Obrigado.

Massuda · Answer

Voc� est� tentando fazer isso...[quote:02cb671a14=�isaiasn�]if Form1.Tag = 10 then begin end[/quote:02cb671a14]... onde exatamente? Isso � parte do c�digo do form que foi criado pea procedure TF_Menu.ChamaClick? Ou � parte do c�digo de outro form?...

Isaiasn · Answer

[quote:9a2ca42c30=�Massuda�]Voc� est� tentando fazer isso...[quote:9a2ca42c30=�isaiasn�]if Form1.Tag = 10 then begin end[/quote:9a2ca42c30]... onde exatamente? Isso � parte do c�digo do form que foi criado pea procedure TF_Menu.ChamaClick? Ou � parte do c�digo de outro form?[/quote:9a2ca42c30]� do Form1 que foi criado pela procedure, e que esta sendo executado.Ate +...

Massuda · Answer

[quote:cffd7fc36a=�isaiasn�]� do Form1 que foi criado pela procedure, e que esta sendo executado.[/quote:cffd7fc36a]Bom... se voc� est� tentando acessar o form Form1 dentro do c�digo da mesma classe TForm1, ent�o voc� n�o precisa da vari�vel Form1; isso deveria servir...[code:1:cffd7fc36a]procedure TForm1.AlgumaProcedure;begin  if Tag = 10 then begin     // faz alguma coisa  end;end;[/code:1:cffd7fc36a]...

F�rum Usar componentes de um Form em Outro #272449