TComponentClass

Question

Como chego no TComponentClass de um Formulario?Desde j� muito obrigado pela aten��o....

Davicarrano · Answer

Meu Formulario de clientes esta no Available Forms
eu tenho uma variavel com o nome dele
eu quero chamar ele no programa
entao eu tenho q usar a fun��o Application.CreateForm
so que o 1� parametro � do tipo TComponentClass
entao eu tenho q achar o TComponentClass do formulario
eu fiz assim

NomeForm:=�form_Clientes�
Application.CreateForm(FindComponent(NomeForm),NomeForm);

mas ai da erro de tipos incompativeis TComponentClass e TComponent

Marioguedes · Answer

O primeiro par�metro � justamente a classe a qual o form em quest�o pertence.

TComponentClass n�o � uma propriedade do formul�rio e sim uma coisa chamada �Referencia de Classe�. Isso possibilta fazer rotinas gen�ricas de instancia��o de classes sem que necessariamente se conhe�a a classe que ser� usada, como � o caso de CreateForm.

Massuda · Answer

[quote:51c35bc6d9=�davicarrano�]...tenho q achar o TComponentClass do formulario ... mas ai da erro de tipos incompativeis TComponentClass e TComponent[/quote:51c35bc6d9]Para obter informa��es sobre a classe de qualquer objeto, fa�a[code:1:51c35bc6d9]var  Componente: TComponent;...  Componente := FindComponent(�...NomeDoComponente...�);  // nome da classe: Componente.ClassName  // refer�ncia da classe: Componente.ClassType[/code:1:51c35bc6d9]No seu caso, poderia escrever assim[code:1:51c35bc6d9]Application.CreateForm(FindComponent(NomeForm).ClassType, NomeForm); [/code:1:51c35bc6d9]...

Davicarrano · Answer

Massuda, eu testei o codigo que voce me recomendou e ainda deu erro de tipos incompativeis TComponentClass e TClass.......

Massuda · Answer

[quote:243db83f89=�davicarrano�]...deu erro de tipos incompativeis TComponentClass e TClass....[/quote:243db83f89]Desculpe... n�o havia testado isso antes. Nesse caso voc� pode fazer o typecast sem problemas...[code:1:243db83f89]Application.CreateForm(TComponentClass(FindComponent(NomeForm).ClassType), NomeForm);[/code:1:243db83f89]Apenas n�o esque�a que o form de nome NomeForm precisa j� ter sido criado ou voc� ter� um erro de Access Violation ao executar o c�digo....

Davicarrano · Answer

Galera valeu pela ajudacom a ajuda de vcs deu pra elaborar um esquema q funcionaesse codigoApplication.CreateForm(TComponentClass(FindClass(�T�+NomeForm)), NomeForm);para criar o form e realmente so funciona se registrar a classeinitialization  RegisterClass(TfrmClientes);no form frmClientes...valeu galera......

Marco Salles · Answer

:arrow: Amigo [b:ba530d1bf3]davicarrano[/b:ba530d1bf3] , tenho acompanhado de perto seus ultimos dois t�picos...

No primeiro t�pico
http://forum.devmedia.com.br/viewtopic.php?t=63052&sid=a032bccda9d42905441bd9fa3ea27732

Cita��o do t�pico

S� que eu criei uma fun��o pra poder criar os formularios e eu passo pra essa fun��o apenas o nome do formulario como parametro. Entao eu quero criar um formul�rio a partir de uma String que cont�m o nome dele. Como ficaria o Codigo pra isso.....

Neste Ultimo , voce chegou a uma conclus�o:

Galera valeu pela ajuda com a ajuda de vcs deu pra elaborar um esquema q funciona esse codigo Application.CreateForm(TComponentClass(FindClass(�T�+NomeForm)), NomeForm);

[b:ba530d1bf3]O Problema que o segundo paramentro Deste M�todo , no meu entendimento , n�o � o Nome do Form [/b:ba530d1bf3].... :arrow: Fica ent�o , um c�digo , sem utilidade :cry: :cry: :cry:

Porque tanto faz Escrever

Application.CreateForm(TComponentClass(FindClass(�T�+frmClientes)), frmClientes); [/quote]

Ou

Application.CreateForm(TfrmClientes,frmClientes);

N�o sei se estou conseguindo atingir o[color=darkred:ba530d1bf3][b:ba530d1bf3] Ponto X[/b:ba530d1bf3][/color:ba530d1bf3] Da quest�o

Eu acho que seria maravilhoso , colocar tambem o segundo parametro No [color=darkred:ba530d1bf3][b:ba530d1bf3]Formato String [/b:ba530d1bf3][/color:ba530d1bf3], como voce consegui , fazer com o Primeiro

[b:ba530d1bf3]E Este que � o Ponto[/b:ba530d1bf3]... :wink: Feito isto , ai sim , voce realmente atingiu seu objetivo[color=darkred:ba530d1bf3][/color:ba530d1bf3]

Davicarrano · Answer

no codigo anterior NomeForm est� armazenando a string �frmClientes�......

Marco Salles · Answer

[code:1:b28aac6cb3]Application.CreateForm(TComponentClass(FindClass(�T�+frmClientes)), frmClientes);[/code:1:b28aac6cb3] [quote:b28aac6cb3]no codigo anterior NomeForm est� armazenando a string �frmClientes�...[/quote:b28aac6cb3]No primeiro parametro , sim , mas no segundo paramentro desse jeito acho que n�o da..Por exemplo:Suponha um Edit1.text:=frmClientesa instru��o [code:1:b28aac6cb3]Application.CreateForm(TComponentClass(FindClass(�T�+Edit1.Text)), Edit1.Text);[/code:1:b28aac6cb3] :arrow: [b:b28aac6cb3]Cho que nen compila[/b:b28aac6cb3] :cry:  :cry:  :cry:  :cry: Entendeu aonde estou querendo chegar :?:  :?:  :?:...

Davicarrano · Answer

eu testei este codigo e funcionou......

Marco Salles · Answer

[quote:9ec021a496]eu testei este codigo e funcionou...[/quote:9ec021a496]Veja amigo... Eu tb Testei e olhe o erro que d�[URL=//www.imageshack.us][img:9ec021a496]//img282.echo.cx/img282/6246/imagemerropassagemparametro4xn.jpg[/img:9ec021a496][/URL][b:9ec021a496]Erro que deveria da mesmo.. N�o sei como voce consegui[/b:9ec021a496] :?:  :?:...

Davicarrano · Answer

eu testei usando o edit1.text e nao deu certo mesmo... aconteceu este erro q vc escreveu.... mas substitua o edit1.text por uma variavel do tipo string contendo o nome do formulario que funciona... fa�a o teste...

por exemplo:

var nomeform:string;
...
nomeform:=�form2�;

Application.CreateForm(TComponentClass(FindClass(�T�+nomeform)), nomeform);

Esse tipo de discussao tira muitas duvidas da gente...
Obrigado Marco Salles, pela aten��o ...

Marco Salles · Answer

Amigo � meu interresse Tamb�m.. A Discuss�o acresecenta sempre algo Novo

Veja , coloquei a Variavel String . conforme voce sugeriu

N�o da erro de compila��o

Mas na hora de executar eu obtive erro

o Meu c�digo Foi:

procedure TForm1.Button1Click(Sender: TObject);
var
 nomeform:string;
begin
 nomeform:=�form2�;
 Application.CreateForm(TComponentClass(FindClass(�T�+nomeform)), nomeform);
 Form2.show;
end;

Qual o c�digo que voce esta usando para Apresentar o Formul�rio Supostamente Criado Por voce Usando a Variavel NomeForm :?: :?:

Coloque aqui , Por gentileza

Davicarrano · Answer

procedure TForm1.Button1Click(Sender: TObject);
var
nomeform:string;
begin
nomeform:=�form2�;
Application.CreateForm(TComponentClass(FindClass(�T�+nomeform)), nomeform);
TForm(nomeform).show;
end;

e no fim do Form2 eu coloquei

initialization
RegisterClass(TForm2);

Lembrando que la em Project - Options, eu tirei o form 2 do Auto-Create e coloquei no Availables Forms
Olha se assim vai funcionar...

Massuda · Answer

[quote:6a0efeedd3=�davicarrano�]procedure TForm1.Button1Click(Sender: TObject);var nomeform:string;begin nomeform:=�form2�; Application.CreateForm(TComponentClass(FindClass(�T�+nomeform)), nomeform); TForm(nomeform).show;end;[/quote:6a0efeedd3]Apesar desse c�digo funcionar, do ponto de vista da linguagem, ele est� incorreto (avise se quiser detalhes).Postei no [url=//forum.clubedelphi.net/viewtopic.php?t=63052]seu outro t�pico[/url] uma fun��o que criava um form a partir do nome da classe do form (� exatamente o que voc� est� fazendo). D� uma olhada e veja a diferen�a que existe entre elas.Tem um problema com o seu c�digo que � um memory leak que ocorre cada vez que o form � criado; a mem�ria utilizada pela string que voc� passa como argumento � perdida quando o form � criado. Dependendo do uso da fun��o no programa isso pode representar algumas dezenas de bytes por chamada que v�o sendo consumidos da mem�ria e nunca s�o retornados....

F�rum TComponentClass #282081