Eu uso a seguinte forma:
var
f:TfrmCadFornecedores;
begin
f := TfrmCadFornecedores.Create(Session);
with f do
begin
ShowModal;
Free;
end;
- Original Message -
From: tiago_econtabil
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, August 04, 2005 9:49 AM
Subject: [delphi-br] criação de form via procedure
Pessoal, estou tentando desenvolver uma rotina para a criação de
formulario, passando o nome do formulario como string:
Note que preciso que seja string, pois usarei a rotina em alguns
componentes, e gostaria de saber se consigo converter uma string em um
form ou datamodule.
Exemplo:
procedure CriaFormulario(NomeFormulario: string)
begin
if NomeFormulario = Nil then
TForm(NomeFormulario) := TNomeFormulario.Create(self);
Nomeformulario.Show;
end;
Alguém já desenvolveu uma rotina para isso?
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.338 / Virus Database: 267.10.0/63 - Release Date: 03/08/2005
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
