Jump to content

Error after build 1.0.0.1394_RC


herculanojs

Recommended Posts

After updating to build 1.0.0.1394_RC, a form that had to be able to handle standardized messages, began to occur error when its dynamic creation. Until earlier versions, the problem did not occur. What can it be?

 

 

class function TMensagem.MsgPergunta(const Texto: string):boolean;
var form:Tuniform;
      PercClasse:TPersistentClass;
begin
       PercClasse:= GetClass('TfrmMensagem');
     if PercClasse <> nil then
     begin
          Try
             UniSession.Synchronize(true);
             form :=TUniFormClass(PercClasse).Create(UniApplication);
             if form <> nil then
             begin
                  datamodel.Link.Util.PassaValor(form,'Tipo',4);
                  datamodel.Link.Util.PassaValor(form,'Texto',Texto);
                  result := form.ShowModal = mrYes;
             end;
          Finally
            //if form <> nil then
            //   FreeAndNil(form);
            UniSession.Synchronize(true);
          End;
     end;
 end;
end;

post-1670-0-56464300-1495737392_thumb.jpg

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...