Oi Alessandra,
Utilizo da seguinte forma:
procedure AbreForm(aClasseForm: TComponentClass; aForm: TForm);
begin
Application.CreateForm(aClasseForm, aForm);
try
aForm.ShowModal;
finally
aForm.Free;
end;
end;
E a chamada é dessa forma:
procedure TfPrincipal.Entrada1Click(Sender: TObject);
begin
AbreForm(TfSaidaProdutos, fSaidaProdutos);
end;
alessandra porto escreveu:
>
>
>
> Chamo meu formularios assim:
>
> if FmAgenda = nil then
> begin
> Application.CreateForm(TFmAgenda,FmAgenda);
> FmAgenda.ShowModal;
> end;
>
> A ideia e criar uma variavel para informar o nome do formulario que
> sera aberto naquele momento
>
> var
> formulario:string;
>
> formulario:=teste;
>
> if teste = nil then
> begin
> Application.CreateForm(T+teste,teste);
> teste.ShowModal;
> end;
>
> com string dá erro como posso fazer isso?
>
> fico agradecida aos colegas que ajudarem
>
> Novos endereços, o Yahoo! que você conhece. Crie um email novo com a
> sua cara @ymail.com ou @rocketmail.com.
> http://br.new.mail.yahoo.com/addresses
> <http://br.new.mail.yahoo.com/addresses>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
--
[]s,
Odail Della Niesi Junior
São Pedro-SP
