_('Form não registrado!')
_() eh a função do gnugettext para controle de idioma das aplicações.
inteh
--- Em delphi-br@yahoogrupos.com.br, José Benedito <[EMAIL PROTECTED]>
escreveu
>
> tem que ser como string? para isso registre a classe na seção
> initialization do form:
>
> initialization
> RegisterClass(TForm1);
>
> finalization
> UnRegisterClass(TForm1);
>
> então no formulario que irá chamar vc nao precisa declarar no uses a
> unit do form :) aí vc chama dessa maneira.
>
> procedure TfrmPrincipal.CriaForm(const NomeForm: string);
> var
> TClasse : TPersistentClass;
> Form : TForm;
> begin
> Form := nil;
>
> TClasse := GetClass(NomeForm);
>
> if (TClasse <> nil) {and TClasse.InheritsFrom(TForm)} then
> Form := TFormClass(TClasse).Create(self);
>
> if not Assigned(Form) then
> MessageDlg(_('Form não registrado!'), mtError, [mbOK], 0)
> else
> begin
> Form.Name := Self.Name + '_' + FormatFloat('00', ComponentCount
+
> 1);
> Form.Caption := Caption;// + ' ' + FormatFloat('00',
ComponentCount + 1);
>
> Form.Show;
> end;
> end;
>
> espero ter ajudado, qq coisa estamos aih.
>
> JB
> Software Developer
> [EMAIL PROTECTED]
>
> --- Em delphi-br@yahoogrupos.com.br, alessandra porto
> <alessandraporto11@> 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
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
>
