Componente a partir de uma string

Question

Gostaria de saber se � poss�vel criar um componente a partir de uma string onde eu teria por exemplo �TEdit�, �TDBGrid�, para poder criar um formul�rio em tempo de execu��o me baseando em uma tabela onde eu informo que tipo de componente representar� cada campo.

Afarias · Answer

Vc pode usar a fun��o [b:bd9010df10]FindClass[/b:bd9010df10]

ex::

procedure TForm1.CriarObjeto(ClasseObjeto: string);
var
  Classe: TControlClass;
  Objeto: TControl;
begin
  Classe := TControlClass(FindClass(ClasseObjeto));
  Objeto := Classe.Create(Self);
  Objeto.Parent := Self;
  {...}
end;

Neste exemplo ClasseObjeto deve ser uma classe derivada de TControl (TButton, TEdit, etc...)

Para usar a fun��o FindClass as classes q se deseja trabalhar devem estar previamente Registradas. Para isso vc usa a fun��o RegisterClasses, ex:

initialization
  RegisterClasses([TButton, TEdit, TPanel]);
finalization
  UnRegisterClasses([TButton, TEdit, TPanel]);

T+

Gabriel Ferrarini · Answer

Cara... valeu... era isso mesmo.S� gostaria de uma explica��ozinha sobre a linha:[code:1:47c4d13039]Classe := TControlClass(FindClass(Nome));[/code:1:47c4d13039]...

Gabriel Ferrarini · Answer

Vixi, acho que deu bosta...Agora t� dando internal error SY424.Sabe o que �?...

Afarias · Answer

|Classe := TControlClass(FindClass(Nome));

1) FindClass retorna a classe pelo nome contido na vari�vel Nome
2) Como o retorno da fun��o � TPersistentClass, � realizado um TypeCast para TControlClass

|Vixi, acho que deu bosta...
|Agora t� dando internal error SY424.

Erros internos n�o tem exatamente um motivo -- a Borland recomenda q estes erros sejam enviados para �investiga��o� (provavelmente algum bug)

T+

Gabriel Ferrarini · Answer

Ent�o se eu chamar um classe como uma fun��o passando como par�metro outra classe � feito um typecast??Se for aprendi mais uma  :D...

Afarias · Answer

|Ent�o se eu chamar um classe como uma fun��o passando como |par�metro outra classe � feito um typecast?? +/- isso... :DIsto n�o � s� para classes mas para qualquer tipo.T+...

F�rum Componente a partir de uma string #255829