RegisterClasses
Estou com algumas dificuldades para resolver uma questão.
Preciso usar a procedure RegisterClasses para registrar alguns formulários. Em um arquivo texto tenho gravado os nomes das classes que serão passadas como parâmetros.
O problema é que não consigo fazer a conversão de tipos de string para TPersistentClass que é o tipo do parâmetro da procedure.
Delphi syntax:
procedure RegisterClasses(AClasses: array of TPersistentClass);
Preciso usar no código:
RegisterClasses([TForm2, TForm3]
P.S. se existisse algo como a ´macro substituição´ do clipper já resolveria o problema.
Preciso usar a procedure RegisterClasses para registrar alguns formulários. Em um arquivo texto tenho gravado os nomes das classes que serão passadas como parâmetros.
O problema é que não consigo fazer a conversão de tipos de string para TPersistentClass que é o tipo do parâmetro da procedure.
Delphi syntax:
procedure RegisterClasses(AClasses: array of TPersistentClass);
Preciso usar no código:
RegisterClasses([TForm2, TForm3]
P.S. se existisse algo como a ´macro substituição´ do clipper já resolveria o problema.
Lab
Curtidas 0
Respostas
Massuda
11/01/2006
Não tem como fazer o que você pretende. A única form de converter um nome de classe (string) para uma classe (TPersistentClass) é usar FindClass, mas FindClass só vai funcionar depois que você registrar a classe.
Uma alternativa (talvez não se aplique, já que não faço idéia de como você implemetou) seria você registrar a classe de cada form na inicialização da unit do form (seção initilization da unit) e usar o arquivo texto para criar uma lista das classes que podem ser usadas pelo programa.
Uma alternativa (talvez não se aplique, já que não faço idéia de como você implemetou) seria você registrar a classe de cada form na inicialização da unit do form (seção initilization da unit) e usar o arquivo texto para criar uma lista das classes que podem ser usadas pelo programa.
GOSTEI 0