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;
Bom dia Alessandra .
Eu utilizo esse método ...
type
procedure AbreForm (aClasseForm : TComponentClass; aForm: TForm);
procedure AbreForm(aClasseForm: TComponentClass; aForm: TForm);
begin
{: método para abrir form}
Application.CreateForm(aClasseForm, aForm);
try
//var srting;
///nome:=Form2;
//entende essa é a dificuldade
end;
end.
--- Em sex, 19/9/08, Luciano Angelini - uol [EMAIL PROTECTED] escreveu:
De: Luciano Angelini - uol [EMAIL PROTECTED]
Assunto: Re: [delphi-br] ajuda criar formulario
Para: delphi-br@yahoogrupos.com.br
Data: Sexta-feira
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:
4 matches
Mail list logo