Jump to content

Leandrocpo

Recommended Posts

Hello,
I'm trying to dynamically create forms stored in a bpl. But to create them they are opening in vcl mode.

I'm calling the following function within the bpl to create the form.

function RegisterPkg(sAWidth,sAHeight: Integer; gUniMainModule : TuniGUIMainModule; 
gUniApplication : TUniGUIApplication):TGenericProgram;
begin
...
      pkgProgram.FfrmMain := TUniForm( gUniMainModule.GetFormInstance(TfrmMyForm,true) );

      if pkgProgram.FfrmMain.WebMode then
        ShowMessage('web')
      else
      if pkgProgram.FfrmMain.VCLMode then
        ShowMessage('vcl');

...

end;

I wonder if I'm doing the right way or what would be the mode to create them in web mode and not in vcl.

 

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...