Ai galera, o Thiago trabalha comigo aqui.
O que precisamos é o seguinte:
Nesta função abaixo nós criamos o form passando para a função o nome
dele, porém precisamos saber se o mesmo já foi criado e então apenas dar
um Show no mesmo. Não estamos conseguindo montar corretamente a função.
Teria que ser mais ou menos isso:
function AbreForm(AForm: String; AEstilo: TBorderStyle = bsSingle;
AShow: Boolean = True): Boolean;
var
Pc: TPersistentClass;
nome: TForm;
begin
Pc := GetClass('t' + AForm);
if (Pc <> nil) then
{aqui teria que ter uma verificação}
if not Form_Já_Criado_E_Registrado then
begin
with TFormClass(Pc).Create(frmPrincipal) do
try
Show;
finally
Free;
end;
end
else
Show;
end;
-------- Mensagem original --------
De: "Thiago Filiano (America Soft)" <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Assunto: [lista-delphi] Como saber se a Classe está ou não registrada?
Data: 14-02-2007 13:44
>
> Pessoal,
>
> Bom dia!!
>
> Tenho a seguinte função para chamar os forms:
>
> function AbreForm(AForm: String; AEstilo: TBorderStyle = bsSingle;
> AShow: Boolean = True): Boolean;
> var
> Pc: TPersistentClass;
> nome: TForm;
> begin
> Pc := GetClass('t' + AForm);
> if (Pc <> nil) then
> with TFormClass(Pc)
>
> .Create(frmPrincipal) do
> try
> Show;
> Update;
> finally
> Free;
> end;
> end;
>
>
--
------------------------------------------------------------------------
*Adriano Santos*
Direção de Arte
Doiscliques.com Identidade Visual e Propaganda
www.doiscliques.com <http://www.doiscliques.com>
Sua empresa de mãos dadas com a mídia.
<http://www.doiscliques.com>
